1 ! Copyright (C) 2009 Doug Coleman.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: fry kernel math random random.mersenne-twister ;
6 : mt-benchmark ( n -- )
7 >fixnum HEX: 533d <mersenne-twister> '[ _ random-32* drop ] times ;
9 : mt-main ( -- ) 10000000 mt-benchmark ;