From 53992695e435a58b520e603b36d022c214cfabea Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 5 Mar 2013 17:04:57 -0800
Subject: [PATCH] benchmark.randomize: adding a randomize benchmark.

---
 extra/benchmark/randomize/randomize.factor | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 extra/benchmark/randomize/randomize.factor

diff --git a/extra/benchmark/randomize/randomize.factor b/extra/benchmark/randomize/randomize.factor
new file mode 100644
index 0000000000..54388a72c4
--- /dev/null
+++ b/extra/benchmark/randomize/randomize.factor
@@ -0,0 +1,9 @@
+USING: arrays kernel literals random sequences ;
+IN: benchmark.randomize
+
+CONSTANT: data $[ 10,000,000 iota >array ]
+
+: randomize-benchmark ( -- )
+    data randomize drop ;
+
+MAIN: randomize-benchmark