! Copyright (C) 2009 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
-USING: fry kernel math random random.mersenne-twister ;
+USING: kernel math random random.mersenne-twister ;
IN: benchmark.mt
-: mt-benchmark ( n -- )
- >fixnum HEX: 533d <mersenne-twister> '[ _ random-32* drop ] times ;
+: mt-bench ( n -- )
+ >fixnum 0x533d <mersenne-twister> '[ _ random-32* drop ] times ;
-: mt-main ( -- ) 10000000 mt-benchmark ;
+: mt-benchmark ( -- ) 10000000 mt-bench ;
-MAIN: mt-main
+MAIN: mt-benchmark