benchmark.interval-sets: adding a benchmark of interval-sets.

diff --git a/extra/benchmark/interval-sets/interval-sets.factor b/extra/benchmark/interval-sets/interval-sets.factor
new file mode 100644 (file)
index 0000000..b8abb2d
--- /dev/null
+++ b/extra/benchmark/interval-sets/interval-sets.factor
@@ -0,0 +1,14 @@
+! Copyright (C) 2014 John Benediktsson
+! See http://factorcode.org/license.txt for BSD license
+
+USING: fry grouping interval-sets kernel math random sequences
+sorting ;
+
+IN: benchmark.interval-sets
+
+: interval-sets-benchmark ( -- )
+    10,000 [ random-32 ] replicate natural-sort
+    2 <groups> <interval-set>
+    3,000,000 swap '[ random-32 _ in? drop ] times ;
+
+MAIN: interval-sets-benchmark