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