author | Tommaso Pecorella <tommaso.pecorella@unifi.it> |
Fri, 11 Sep 2015 10:52:44 +0200 | |
changeset 11666 | e8634b0101f7 |
parent 191 | 411f29b214f0 |
permissions | -rwxr-xr-x |
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 |
} |