benchmark.splitting: adding a splitting benchmark.

2013-03-27 16:12:08 -07:00 · 2013-03-27 16:12:08 -07:00 · 9341a660a2
parent 6fd25b6668
commit 9341a660a2
1 changed files with 15 additions and 0 deletions
--- a/extra/benchmark/splitting/splitting.factor
+++ 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