fsodomka

;; Copyright (c) Frantisek Sodomka
;; Distributed under the Eclipse Public License, the same as Clojure.

(defmacro timings [n & exprs]
  `(if (= ~@exprs)
    ~(vec (for [expr exprs]
      `(let [start# (System/nanoTime)
             ret# (dotimes [~'_ ~n] ~expr)
             end# (System/nanoTime)]
        {:expr '~expr