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

benchmark.splitting: stop using split* and use slices only.

db4
John Benediktsson 2013-04-01 10:26:43 -07:00
parent a96ff62f5c
commit 23c154c06f
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/benchmark/splitting/splitting.factor
View File

@ -5,11 +5,9 @@ IN: benchmark.splitting
1000 iota dup [ 10 /i zero? ] filter ; ! not inline to prevent type inference 1000 iota dup [ 10 /i zero? ] filter ; ! not inline to prevent type inference
: splitting-benchmark ( -- ) : splitting-benchmark ( -- )
test-data 1,000 [ test-data 2,000 [
over [ even? ] split-when drop
over [ even? ] split-when-slice drop over [ even? ] split-when-slice drop
2dup split drop 2dup split-slice drop
2dup split* drop
] times 2drop ; ] times 2drop ;
MAIN: splitting-benchmark MAIN: splitting-benchmark