USING: arrays kernel literals random sequences ;
IN: benchmark.randomize

CONSTANT: data $[ 10,000,000 iota >array ]

: randomize-benchmark ( -- )
    data randomize drop ;

MAIN: randomize-benchmark