add benchmark.mt for comparison to sfmt
parent
fbdfbe2fa4
commit
11be7d9ff6
|
@ -0,0 +1 @@
|
|||
Doug Coleman
|
|
@ -0,0 +1,11 @@
|
|||
! 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 ;
|
||||
|
||||
: mt-main ( -- ) 100000000 mt-benchmark ;
|
||||
|
||||
MAIN: mt-main
|
Loading…
Reference in New Issue