invocation time

gistfile1.clj

(defn time-it
  "Signature slightly awkward to resemble that of time-it-mac"
  ([f] (time-it f 1))
  ([n f]
     (. clojure.lang.RT (StartStopwatch))
     (dotimes [_ n] (f))
     (let [t  (. clojure.lang.RT StopStopwatch)]
       (/ t n))))
  
(defmacro time-it-mac
  ([n & body]
     `(do
        (. clojure.lang.RT (StartStopwatch))
        (dotimes [_# ~n] ~@body)
        (let [t#  (. clojure.lang.RT StopStopwatch)]
          (/ t# ~n)))))

(def bla :bla)

(defn simpler []
  bla)

(let [f simpler]
  (time-it-mac 100000
    (f)))

(time-it-mac 100000
  bla)

first benchmark: 1/100000
second benchmark: 1/20000
derp