benchmark.splitting: adding a splitting benchmark.

diff --git a/extra/benchmark/splitting/splitting.factor b/extra/benchmark/splitting/splitting.factor
new file mode 100644 (file)
index 0000000..6a9104f
--- /dev/null
+++ b/extra/benchmark/splitting/splitting.factor
@@ -0,0 +1,15 @@
+USING: kernel math sequences splitting ;
+IN: benchmark.splitting
+
+: test-data ( -- seq seps ) 
+    1000 iota dup [ 10 /i zero? ] filter ; ! not inline to prevent type inference
+
+: splitting-benchmark ( -- )
+    test-data 1,000 [
+        over [ even? ] split-when drop
+        over [ even? ] split-when-slice drop
+        2dup split drop
+        2dup split* drop
+    ] times 2drop ;
+
+MAIN: splitting-benchmark