benchmark.hash-sets: adding a benchmark for hash-sets.

diff --git a/extra/benchmark/hash-sets/hash-sets.factor b/extra/benchmark/hash-sets/hash-sets.factor
new file mode 100644 (file)
index 0000000..2aabff1
--- /dev/null
+++ b/extra/benchmark/hash-sets/hash-sets.factor
@@ -0,0 +1,24 @@
+
+USING: combinators hash-sets kernel math.combinatorics sequences sets ;
+
+IN: benchmark.hash-sets
+
+: make-sets ( -- seq )
+    { 10 100 1,000 10,000 100,000 1,000000 } [ iota >hash-set ] map ;
+
+: bench-sets ( seq -- )
+    2 [
+        first2 {
+            [ union drop ]
+            [ intersect drop ]
+            [ intersects? drop ]
+            [ diff drop ]
+            [ set= drop ]
+            [ subset? drop ]
+        } 2cleave
+    ] each-combination ;
+
+: hash-sets-benchmark ( -- )
+    make-sets bench-sets ;
+
+MAIN: hash-sets-benchmark