2023-07-22 21:42:12 -07:00
|
|
|
(function measure
|
|
|
|
|
(let [start result end] [(time) (... . args) (time)])
|
2026-02-01 16:33:20 -08:00
|
|
|
"{result} took {- end start}ms")
|
2023-07-22 21:42:12 -07:00
|
|
|
|
|
|
|
|
(function fib n
|
|
|
|
|
(if (< n 2) n
|
|
|
|
|
(+ (fib (dec n))
|
|
|
|
|
(fib (- n 2)))))
|
|
|
|
|
|
|
|
|
|
(measure fib 35)
|
|
|
|
|
;returns "9227465 took 26497ms"
|
