steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

speed up mt benchmarks considerably by doing less iterations

Doug Coleman 2009-10-07 18:48:23 -05:00
parent 18c8ae3705
commit 768d68ce3a
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/benchmark/mt/mt.factor
View File

@ -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

2
extra/benchmark/sfmt/sfmt.factor
View File

@ -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