Author: jonathan
Date: Mon Mar 31 14:03:03 2008
New Revision: 26674
Modified:
trunk/languages/perl6/src/builtins/named-unary.pir
Log:
[rakudo] Make rand actually likely to generate a different sequence of numbers
between runs.
Modified: trunk/languages/perl6/src/builtins/named-unary.pir
==============================================================================
--- trunk/languages/perl6/src/builtins/named-unary.pir (original)
+++ trunk/languages/perl6/src/builtins/named-unary.pir Mon Mar 31 14:03:03 2008
@@ -34,8 +34,12 @@
.sub 'prefix:rand'
.param num limit
-
+
+ # For now, we'll seed it with the time. Likely sucks.
$P0 = new 'Random'
+ $I0 = time
+ $P0 = $I0
+
$N0 = $P0
$N0 *= limit
