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