benchmark.splitting: stop using split* and use slices only.
parent
a96ff62f5c
commit
23c154c06f
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue