blob: 96ca968b232ccb5c4f432ffa84c20e9b30a63e9a (
plain)
1
2
3
4
5
6
7
8
9
10
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))
|
