From 0c16b7cc1a2b63efd7fa6171dfb828f000707de8 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 16 Apr 2012 10:57:57 -0700
Subject: [PATCH] benchmark.hash-sets: adding a benchmark for hash-sets.

---
 extra/benchmark/hash-sets/hash-sets.factor | 24 ++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 extra/benchmark/hash-sets/hash-sets.factor

diff --git a/extra/benchmark/hash-sets/hash-sets.factor b/extra/benchmark/hash-sets/hash-sets.factor
new file mode 100644
index 0000000000..2aabff14e4
--- /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