Skip to content

Instantly share code, notes, and snippets.

@kouddy

kouddy/SICP 1.11.part 3

Created February 22, 2015 01:22
Show Gist options
  • Save kouddy/9705c38b2b85171a4765 to your computer and use it in GitHub Desktop.
Save kouddy/9705c38b2b85171a4765 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
SICP 1.11.part 3
(define (f-iter n)
(f-iter-aux 2 1 0 n))
(define (f-iter-aux a b c n)
(if (= 0 n)
c
(f-iter-aux (+ a (* 2 b) (* 3 c))
a
b
(- n 1))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment