2009-10-02 03:03:15 -04:00
|
|
|
! Copyright (C) 2009 Doug Coleman.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
|
USING: fry kernel math random random.sfmt ;
|
|
|
|
|
IN: benchmark.sfmt
|
|
|
|
|
|
2012-07-19 20:35:47 -04:00
|
|
|
: sfmt-bench ( n -- )
|
2011-11-23 21:49:33 -05:00
|
|
|
>fixnum 0x533d <sfmt-19937> '[ _ random-32* drop ] times ;
|
2009-10-02 03:03:15 -04:00
|
|
|
|
2012-07-19 20:35:47 -04:00
|
|
|
: sfmt-benchmark ( -- ) 10000000 sfmt-bench ;
|
2009-10-02 03:03:15 -04:00
|
|
|
|
2012-07-19 20:35:47 -04:00
|
|
|
MAIN: sfmt-benchmark
|
