2013-03-05 20:04:57 -05:00
|
|
|
USING: arrays kernel literals random sequences ;
|
|
|
|
|
IN: benchmark.randomize
|
|
|
|
|
|
2017-06-01 17:59:35 -04:00
|
|
|
CONSTANT: data $[ 10,000,000 <iota> >array ]
|
2013-03-05 20:04:57 -05:00
|
|
|
|
|
|
|
|
: randomize-benchmark ( -- )
|
|
|
|
|
data randomize drop ;
|
|
|
|
|
|
|
|
|
|
MAIN: randomize-benchmark
|
