Pseudo-random numbers/Xorshift star: Difference between revisions
Pseudo-random numbers/Xorshift star (view source)
Revision as of 00:49, 19 January 2021
, 3 years ago→{{header|Perl}}: added the "next_float" method
(Added Sidef) |
m (→{{header|Perl}}: added the "next_float" method) |
||
Line 462:
$self->{state} = $state;
($state * 0x2545F4914F6CDD1D) >> 32 & (2**32 - 1);
}
sub next_float {
my ($self) = @_;
$self->next_int / 2**32;
}
}
Line 472 ⟶ 477:
say "\nSeed: 987654321, values histogram:";
$rng = Xorshift_star->new(seed => 987654321);
$h{
say "$_ $h{$_}" for sort keys %h;</lang>
{{out}}
| |||