wicked fast

swannodette · swannodette · commit 1fa173a3b07e · 2013-12-30T22:58:16.000-05:00
diff --git a/benchmark/cljs/benchmark_runner.cljs b/benchmark/cljs/benchmark_runner.cljs
@@ -40,6 +40,13 @@
 (simple-benchmark [coll "foobar"] (nth coll 2) 1000000)
 (println)
 
+(defprotocol IFoo (foo [x]))
+
+(println ";;; cloning & specify")
+(simple-benchmark [coll [1 2 3]] (clone coll) 1000000)
+(simple-benchmark [coll [1 2 3]] (specify coll IFoo (foo [_] :bar)) 1000000)
+(println)
+
 (println ";;; list ops")
 (simple-benchmark [coll (list 1 2 3)] (first coll) 1000000)
 (simple-benchmark [coll (list 1 2 3)] (-first coll) 1000000)
