From 3ff8db48f681f355269dfe68eb9bf71362d2ddda Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 7 Oct 2009 18:48:23 -0500
Subject: [PATCH] speed up mt benchmarks considerably by doing less iterations

---
 extra/benchmark/mt/mt.factor     | 2 +-
 extra/benchmark/sfmt/sfmt.factor | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/extra/benchmark/mt/mt.factor b/extra/benchmark/mt/mt.factor
index e586a9e9ad..b2f907ba68 100644
--- a/extra/benchmark/mt/mt.factor
+++ b/extra/benchmark/mt/mt.factor
@@ -6,6 +6,6 @@ IN: benchmark.mt
 : mt-benchmark ( n -- )
     >fixnum HEX: 533d <mersenne-twister> '[ _ random-32* drop ] times ;
 
-: mt-main ( -- ) 100000000 mt-benchmark ;
+: mt-main ( -- ) 10000000 mt-benchmark ;
 
 MAIN: mt-main
diff --git a/extra/benchmark/sfmt/sfmt.factor b/extra/benchmark/sfmt/sfmt.factor
index 9b4c6e43c8..e9c69303bd 100644
--- a/extra/benchmark/sfmt/sfmt.factor
+++ b/extra/benchmark/sfmt/sfmt.factor
@@ -6,6 +6,6 @@ IN: benchmark.sfmt
 : sfmt-benchmark ( n -- )
     >fixnum HEX: 533d <sfmt-19937> '[ _ random-32* drop ] times ;
 
-: sfmt-main ( -- ) 100000000 sfmt-benchmark ;
+: sfmt-main ( -- ) 10000000 sfmt-benchmark ;
 
 MAIN: sfmt-main