Skip to content

Instantly share code, notes, and snippets.

@timm

timm/fib-iterate.lisp

Last active December 11, 2015 01:19
Show Gist options
  • Save timm/4522343 to your computer and use it in GitHub Desktop.
Save timm/4522343 to your computer and use it in GitHub Desktop.
Download ZIP
iterative fib
Raw
fib-iterate.lisp
(defun fib (n &aux (a 0) (b 1) tmp)
(dotimes (i n a)
(setf tmp a
a b
b (+ tmp b))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment