From 11be7d9ff68c577529728762f2bebb43922ac61e Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 7 Oct 2009 15:27:10 -0500
Subject: [PATCH] add benchmark.mt for comparison to sfmt

---
 extra/benchmark/mt/authors.txt |  1 +
 extra/benchmark/mt/mt.factor   | 11 +++++++++++
 2 files changed, 12 insertions(+)
 create mode 100644 extra/benchmark/mt/authors.txt
 create mode 100644 extra/benchmark/mt/mt.factor

diff --git a/extra/benchmark/mt/authors.txt b/extra/benchmark/mt/authors.txt
new file mode 100644
index 0000000000..b4bd0e7b35
--- /dev/null
+++ b/extra/benchmark/mt/authors.txt
@@ -0,0 +1 @@
+Doug Coleman
\ No newline at end of file
diff --git a/extra/benchmark/mt/mt.factor b/extra/benchmark/mt/mt.factor
new file mode 100644
index 0000000000..e586a9e9ad
--- /dev/null
+++ b/extra/benchmark/mt/mt.factor
@@ -0,0 +1,11 @@
+! Copyright (C) 2009 Doug Coleman.
+! See http://factorcode.org/license.txt for BSD license.
+USING: fry kernel math random random.mersenne-twister ;
+IN: benchmark.mt
+
+: mt-benchmark ( n -- )
+    >fixnum HEX: 533d <mersenne-twister> '[ _ random-32* drop ] times ;
+
+: mt-main ( -- ) 100000000 mt-benchmark ;
+
+MAIN: mt-main