simple clojure benchmarking

gistfile1.clj

(defmacro bench [f]
  `(let [start# (System/currentTimeMillis)
         result# ~f
         end# (System/currentTimeMillis)]
     (println (str "bench result: " (- end# start#) "ms"))
     result#))

=> (source time)
(defmacro time
  "Evaluates expr and prints the time it took.  Returns the value of
 expr."
  {:added "1.0"}
  [expr]
  `(let [start# (. System (nanoTime))
         ret# ~expr]
     (prn (str "Elapsed time: " (/ (double (- (. System (nanoTime)) start#)) 1000000.0) " msecs"))
     ret#))
nil

Suspiciously similar :)