RosettaCodeData/Task/Fibonacci-sequence/Clojure/fibonacci-sequence-9.clj

9 lines
125 B
Clojure

(def fib
(memoize
(fn [n]
(case n
0 0
1 1
(+ (fib (- n 1))
(fib (- n 2)))))))