From db08499eafe7cd084c535e1e77a323ec194d7d79 Mon Sep 17 00:00:00 2001 From: Nathan Marz Date: Wed, 15 Jun 2016 09:31:24 -0400 Subject: [PATCH] include #iters in benchmark output --- scripts/benchmarks.clj | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/scripts/benchmarks.clj b/scripts/benchmarks.clj index d7844b9..e8480e0 100644 --- a/scripts/benchmarks.clj +++ b/scripts/benchmarks.clj @@ -47,21 +47,11 @@ (defmacro run-benchmark [name amt-per-iter & exprs] (let [afn-map (->> exprs shuffle (map (fn [e] [`(quote ~e) `(fn [] ~e)])) (into {}))] `(do - (println "Benchmark:" ~name) + (println "Benchmark:" ~name (str "(" ~amt-per-iter " iterations)")) (compare-benchmark ~amt-per-iter ~afn-map) (println "\n********************************\n") ))) -(let [data (range 1000)] - (run-benchmark "Traverse into a set" 5000 - (set data) - (set (select ALL data)) - (into #{} (traverse ALL data)) - (persistent! - (reduce conj! (transient #{}) (traverse ALL data))) - (reduce conj #{} (traverse ALL data)) - )) - (let [data {:a {:b {:c 1}}} p (comp-paths :a :b :c)] (run-benchmark "get value in nested map" 5000000 @@ -254,3 +244,13 @@ (vary-meta data assoc :y 2) (setval [META :y] 2 data))) +(let [data (range 1000)] + (run-benchmark "Traverse into a set" 5000 + (set data) + (set (select ALL data)) + (into #{} (traverse ALL data)) + (persistent! + (reduce conj! (transient #{}) (traverse ALL data))) + (reduce conj #{} (traverse ALL data)) + )) +