exercises/01/1.31.scm line 31

[fuzhengjia]

;(b)
(define (product2 a term b next)
(define (iter a result)
(if (> a b)
result
((iter (next a) (* (term a) result))))
(iter a 1))