madlisp/mad/misc.mad
2020-12-11 21:30:34 +07:00

3 lines
97 B
Plaintext

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