Subtractive generator: Difference between revisions
→{{header|Perl 6}}: Fix syntax errors, update
m (→{{header|REXX}}: changed order of an assignment.) |
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Fix syntax errors, update) |
||
Line 1,196:
=={{header|Perl 6}}==
{{trans|Perl}}
{{works with|
<lang perl6>sub
constant $mod = 1_000_000_000;
my @seeds = ($seed % $mod, 1, (* - *) % $mod ... *)[^55];
Line 1,213:
}
my @sr
.say for @sr[^10];</lang>
Here we just make the seeder return the random sequence as a lazy list.
| |||