2009-10-07 16:27:10 -04:00
|
|
|
! 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 ;
|
|
|
|
|
|
2009-10-07 19:48:23 -04:00
|
|
|
: mt-main ( -- ) 10000000 mt-benchmark ;
|
2009-10-07 16:27:10 -04:00
|
|
|
|
|
|
|
|
MAIN: mt-main
|
