/usr/share/doc/libstatistics-test-randomwalk-perl/examples/comparison.pl is in libstatistics-test-randomwalk-perl 0.02-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 | #!/usr/bin/perl
use strict;
use warnings;
use lib 'lib';
use Statistics::Test::RandomWalk;
use Data::Dumper;
use Math::Random::MT;
my $t = Statistics::Test::RandomWalk->new();
my $rnd;
open my $fh, '<', '/dev/random' or die $!;
read($fh, $rnd, 32);
$rnd = unpack('%L', $rnd);
my $gen = Math::Random::MT->new($rnd);
{
my $x = 4711;
my $a = 421;
my $c = 64773;
my $m = 259200;
sub lin_kong {
$x = ($a*$x + $c) % $m;
return $x/$m;
}
}
my $num = 100000;
foreach (
[ 'rand', sub {map rand(), 1..10000}, $num/10000 ],
[ 'MT', sub {map $gen->rand(), 1..10000}, $num/10000 ],
[ 'lin', \&lin_kong, $num ],
) {
my $name = shift @$_;
$t->set_data(@$_);
print "Testing $name...\n";
my ($alpha, $got, $expected) = $t->test(100);
print $t->data_to_report($alpha, $got, $expected);
}
|