manishym/fibonacci-iteration-loop.lisp

Created December 25, 2011 06:02

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/manishym/1518787.js"></script>
Save manishym/1518787 to your computer and use it in GitHub Desktop.

Download ZIP

Fibonacci in lisp - iteration - loop

Raw

fibonacci-iteration-loop.lisp

	(defun fib-loop (num)
	(do ((n 0 (1+ n))
	(cur 0 next)
	(next 1 (+ cur next)))
	((= num n) cur)))

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment