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

2013-04-01 10:26:43 -07:00 · 2013-04-01 10:26:43 -07:00 · 23c154c06f
parent a96ff62f5c
commit 23c154c06f
1 changed files with 3 additions and 5 deletions
--- a/extra/benchmark/splitting/splitting.factor
+++ b/extra/benchmark/splitting/splitting.factor
@ -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