timm/fib-iterate.lisp

Last active December 11, 2015 01:19

Star () You must be signed in to star a gist
Fork () You must be signed in to fork a gist

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/timm/4522343.js"></script>
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