From 9341a660a2b29c85d6843d7d97b39b29d515213a Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 27 Mar 2013 16:12:08 -0700
Subject: [PATCH] benchmark.splitting: adding a splitting benchmark.

---
 extra/benchmark/splitting/splitting.factor | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 extra/benchmark/splitting/splitting.factor

diff --git a/extra/benchmark/splitting/splitting.factor b/extra/benchmark/splitting/splitting.factor
new file mode 100644
index 0000000000..6a9104fcd6
--- /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