問題1.30

僕の解答

こんな感じかな？

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

解答例

• http://oss.timedia.co.jp/show/SICP/ex-1.30
• http://www.csus4.net/hiki/SICPReading/?1.30