wicked fast

alexisvincent · Dec 31, 2013 · 1fa173a · 1fa173a
1 parent ff59e76
commit 1fa173a
Showing 1 changed file with 7 additions and 0 deletions.
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)