diff options
Diffstat (limited to 'benchmarks/benchmark.clj')
| -rw-r--r-- | benchmarks/benchmark.clj | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/benchmarks/benchmark.clj b/benchmarks/benchmark.clj new file mode 100644 index 0000000..96ca968 --- /dev/null +++ b/benchmarks/benchmark.clj @@ -0,0 +1,11 @@ +;; Run as e.g. "bb benchmark.clj 1000" +(ns benchmark + (:require [clojure.set :as set])) + +(def size (Integer/parseInt (first *command-line-args*))) + +(def set1 (set (map (fn [i] (keyword (str "x" i))) (range size)))) +(def set2 (set (map (fn [i] (keyword (str "y" i))) (range size)))) + +(doseq [x (range 10000)] + (set/difference set1 set2)) |