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

View File

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