public
Created

  • Download Gist
fibo.clj
Clojure
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
(defn fibo [n]
(cond
(= n 0) 0
(= n 1) 1
:else (+ (fibo (dec n)) (fibo (- n 2)))))
 
(defn fibo-toc [n]
(letfn [(fib
[current next n]
(if (zero? n)
current
(recur next (+ current next) (dec n))))]
(fib 0 1 n)))
 
(def n 50)
; (time (println (fibo n)))
(time (println (fibo-toc n)))

Please sign in to comment on this gist.

Something went wrong with that request. Please try again.