Pseudo-random numbers/Combined recursive generator MRG32k3a: Difference between revisions
Pseudo-random numbers/Combined recursive generator MRG32k3a (view source)
Revision as of 00:17, 14 August 2020
, 3 years ago→{{header|Raku}}: minor style tweaks
Thundergnat (talk | contribs) m (→{{header|Raku}}: eliminate some intermediates, slightly more efficient) |
Thundergnat (talk | contribs) m (→{{header|Raku}}: minor style tweaks) |
||
Line 141:
constant m2 = 2**32 - 22853;
submethod BUILD ( Int :$seed where
method next-int {
Line 155:
# Test next-int with custom seed
say 'Seed: 1234567; first five Int values:';
my $rng = MRG32k3a.new
.say for $rng.next-int xx 5;
Line 161:
# Test next-rat (since these are rational numbers by default)
say "\nSeed: 987654321; first 1e5 Rat values histogram:";
$rng = MRG32k3a.new
say ( ($rng.next-rat * 5).floor xx 100_000 ).Bag;
Line 185:
1012402089
1268414425
3353586348</pre>
| |||