10 lines
200 B
Factor
10 lines
200 B
Factor
|
USING: arrays kernel literals random sequences ;
|
||
|
|
IN: benchmark.randomize
|
||
|
|
|
||
|
|
CONSTANT: data $[ 10,000,000 iota >array ]
|
||
|
|
|
||
|
|
: randomize-benchmark ( -- )
|
||
|
|
data randomize drop ;
|
||
|
|
|
||
|
|
MAIN: randomize-benchmark
|