問題1.30

SICP

僕の解答

こんな感じかな？

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

解答例