extra/benchmark/sfmt/sfmt.factor

   1 ! Copyright (C) 2009 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: fry kernel math random random.sfmt ;
   4 IN: benchmark.sfmt
   5
   6 : sfmt-benchmark ( n -- )
   7     >fixnum 0x533d <sfmt-19937> '[ _ random-32* drop ] times ;
   8
   9 : sfmt-main ( -- ) 10000000 sfmt-benchmark ;
  10
  11 MAIN: sfmt-main