Skip to content

Instantly share code, notes, and snippets.

@lfranchi

lfranchi/gist:3822174

Created October 2, 2012 18:36
Show Gist options
  • Save lfranchi/3822174 to your computer and use it in GitHub Desktop.
Save lfranchi/3822174 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
(defn fib [x]
(reverse
(loop [n 0 r ()]
(cond (= x n) r
(or (= n 0) (= n 1)) (recur (inc n) (conj r 1))
:else (recur (inc n) (conj r (+ (first (rest r)) (first r))))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment