Skip to content

Instantly share code, notes, and snippets.

@daviddavis

daviddavis/test.clj

Created January 19, 2011 13:59
Show Gist options
  • Save daviddavis/786194 to your computer and use it in GitHub Desktop.
Save daviddavis/786194 to your computer and use it in GitHub Desktop.
Download ZIP
This is a test
Raw
test.clj
(defn fib
([] (concat [0 1] (fib 0 1)))
([a b] (lazy-cons (+ a b) (fib b (+ a b)))))
user> (take 20 (fib))
(0 1 1 2 3 5 8 13 21 34 55 89 144 233 377 610 987 1597 2584 4181)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment