extra/benchmark/randomize/randomize.factor

   1 USING: arrays kernel literals random sequences ;
   2 IN: benchmark.randomize
   3
   4 CONSTANT: data $[ 10,000,000 iota >array ]
   5
   6 : randomize-benchmark ( -- )
   7     data randomize drop ;
   8
   9 MAIN: randomize-benchmark