Skip to content

Instantly share code, notes, and snippets.

@enigmaticape

enigmaticape/iterfib.scm

Created November 4, 2012 18:55
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save enigmaticape/4013070 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save enigmaticape/4013070 to your computer and use it in GitHub Desktop.
Download ZIP
Iterative (tail recursive) Fibonacci in Scheme (a snippet from SICP)
Raw
iterfib.scm
(define (fib n)
(fib-iter 1 0 n))
(define (fib-iter a b count)
(if (= count 0)
b
(fib-iter (+ a b) a (- count 1))))
@enigmaticape

enigmaticape commented Nov 16, 2012

Copy link
Copy Markdown
Author

Fibonacci function as given in SICP, used in discussion of solution to exercises 1.11 (http://www.enigmaticape.com/blog/sicp-exercise-1-11-iterative-function-fn/) and 1.13 (http://www.enigmaticape.com/blog/sicp-exercise-1-13/)

@tobisor

tobisor commented Apr 3, 2017

Copy link
Copy Markdown

HOLY M... thank you

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