madlisp/mad/misc.mad
2020-12-14 08:22:22 +07:00

3 lines
98 B
Plaintext

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