author | Mirko Banchi <mk.banchi@gmail.com> |
Fri, 24 Apr 2009 09:16:28 +0200 | |
changeset 4404 | e10005ac0701 |
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 |
} |