Pseudo-random numbers/Splitmix64: Difference between revisions
m
→{{header|Perl}}: made splitmix64 a real class and added the "next_float" method
SqrtNegInf (talk | contribs) (Added Perl) |
m (→{{header|Perl}}: made splitmix64 a real class and added the "next_float" method) |
||
Line 328:
use Math::AnyNum qw(:overload);
my ($class, %opt) = @_;
}
sub next_int {
my
my $next = $self->{state} = ($self->{state} + 0x9e3779b97f4a7c15) & (2**64 - 1);
$next = ($next ^ ($next >> 30)) * 0xbf58476d1ce4e5b9 & (2**64 - 1);
$next = ($next ^ ($next >> 27)) * 0x94d049bb133111eb & (2**64 - 1);
($next ^ ($next >> 31)) & (2**64 - 1);
}
sub next_float {
my ($self) = @_;
$self->next_int / 2**64;
}
}
say 'Seed: 1234567, first 5 values:';
my $rng = splitmix64->new(
say
my %h;
say "\nSeed: 987654321, values histogram:";
$rng = splitmix64->new(
$h{int 5 *
say "$_ $h{$_}" for sort keys %h;</lang>
{{out}}
| |||