9 lines
125 B
Clojure
9 lines
125 B
Clojure
|
(def fib
|
||
|
|
(memoize
|
||
|
|
(fn [n]
|
||
|
|
(case n
|
||
|
|
0 0
|
||
|
|
1 1
|
||
|
|
(+ (fib (- n 1))
|
||
|
|
(fib (- n 2)))))))
|