mirror of
https://github.com/kanaka/mal.git
synced 2024-10-27 14:52:16 +03:00
15 lines
366 B
Plaintext
15 lines
366 B
Plaintext
|
(load-file "../lib/benchmark.mal")
|
||
|
|
|
||
|
|
(def! fib (fn* [n]
|
||
|
|
(if (= n 0)
|
||
|
|
1
|
||
|
|
(if (= n 1)
|
||
|
|
1
|
||
|
|
(+ (fib (- n 1))
|
||
|
|
(fib (- n 2)))))))
|
||
|
|
|
||
|
|
(let* [n (read-string (first *ARGV*))
|
||
|
|
iters (read-string (first (rest *ARGV*)))]
|
||
|
|
(println (str "Times (in ms) for (fib " n ") on " *host-language* ": ")
|
||
|
|
(benchmark (fib n) iters)))
|