invocation cost

gistfile1.clj

(ns invocation-cost)

(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)

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

   (time-it-mac 100000
     bla)])