speed up mt benchmarks considerably by doing less iterations

diff --git a/extra/benchmark/mt/mt.factor b/extra/benchmark/mt/mt.factor
index e586a9e9adefb6a2f5200560bcbdbc60d7d34652..b2f907ba68e6bc2975d5d49b45ad679946904c7c 100644 (file)
--- 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 9b4c6e43c89c741ddf24c6a04b437b1450710d05..e9c69303bd247bbd2471a724054c29b575a5949f 100644 (file)
--- 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