utils/generate-distributions.pl
author Sébastien Deronne <sebastien.deronne@gmail.com>
Mon, 14 Sep 2015 19:07:56 +0200
changeset 11664 f09955ef98e5
parent 191 411f29b214f0
permissions -rwxr-xr-x
Clean wifi wscript
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
191
411f29b214f0 add small perl utility to generate static sample distributions
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
     1
#!/usr/bin/env perl
411f29b214f0 add small perl utility to generate static sample distributions
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
     2
411f29b214f0 add small perl utility to generate static sample distributions
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
     3
use Math::Random qw(:all);
411f29b214f0 add small perl utility to generate static sample distributions
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
     4
411f29b214f0 add small perl utility to generate static sample distributions
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
     5
@values = random_uniform (10000, 0, 10000000);
411f29b214f0 add small perl utility to generate static sample distributions
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
     6
411f29b214f0 add small perl utility to generate static sample distributions
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
     7
foreach $value (@values) {
411f29b214f0 add small perl utility to generate static sample distributions
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
     8
    print $value . "\n";
411f29b214f0 add small perl utility to generate static sample distributions
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
     9
}