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

9 lines
125 B
Clojure
Raw Permalink Normal View History

2019-09-12 10:33:56 -07:00
(def fib
(memoize
(fn [n]
(case n
0 0
1 1
(+ (fib (- n 1))
(fib (- n 2)))))))