madlisp/mad/misc.mad

3 lines
97 B
Plaintext
Raw Normal View History

;; Measure how long it takes to execute f
(defn timer (f) (let (st (mtime)) (f) (- (mtime) st)))