Michael Schimmel
12 lines
171 B
Plaintext
12 lines
171 B
Plaintext
;; Fibonacci Recursive
|
|
;; Benchmark: 68.3us
|
|
;; Output: 55
|
|
(do
|
|
(def fib (fn [n]
|
|
(if (< n 2)
|
|
n
|
|
(+ (fib (- n 1)) (fib (- n 2))))))
|
|
|
|
(fib 10)
|
|
)
|