jfacoustic/iterative-sum.scm

Created October 13, 2020 11:52

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

Download ZIP

1.30 SICP

Raw

iterative-sum.scm

	(define (sum term a next b)
	(define (iter a result)
	(if (> a b)
	result
	(iter (next a) (+ result (term a)))))
	(iter a 0))

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