steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

benchmark.randomize: adding a randomize benchmark.

db4
John Benediktsson 2013-03-05 17:04:57 -08:00
parent 12216b1246
commit 53992695e4
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
extra/benchmark/randomize/randomize.factor Normal file
View File

@ -0,0 +1,9 @@
USING: arrays kernel literals random sequences ;
IN: benchmark.randomize
CONSTANT: data $[ 10,000,000 iota >array ]
: randomize-benchmark ( -- )
data randomize drop ;
MAIN: randomize-benchmark