From 19d2e21aaf26d7b22debdf6856c9b41507d9695b Mon Sep 17 00:00:00 2001
From: Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
Date: Tue, 12 Dec 2006 14:02:07 +0100
Subject: [PATCH] add small perl utility to generate static sample
 distributions

---
 utils/generate-distributions.pl | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100755 utils/generate-distributions.pl

diff --git a/utils/generate-distributions.pl b/utils/generate-distributions.pl
new file mode 100755
index 000000000..005407fed
--- /dev/null
+++ b/utils/generate-distributions.pl
@@ -0,0 +1,9 @@
+#!/usr/bin/env perl
+
+use Math::Random qw(:all);
+
+@values = random_uniform (10000, 0, 10000000);
+
+foreach $value (@values) {
+    print $value . "\n";
+}