add benchmark.mt for comparison to sfmt

db4
Doug Coleman 2009-10-07 15:27:10 -05:00
parent fbdfbe2fa4
commit 11be7d9ff6
2 changed files with 12 additions and 0 deletions

View File

@ -0,0 +1 @@
Doug Coleman

View File

@ -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