Skip to content

Instantly share code, notes, and snippets.

@paultag

paultag/fibgen.hy

Created June 22, 2013 15:36
Show Gist options
  • Star 1 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save paultag/5841302 to your computer and use it in GitHub Desktop.
Save paultag/5841302 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
fibgen.hy
(defn fib []
(setf a 0)
(setf b 1)
(while true (yield a) (setf (, a b) (, b (+ a b)))))
(setf it (fib))
(for [x (range 10)]
(print (next it)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment