exe1.30-SumModal-iter.scm

;序列求和模式的迭代版本
(define (sum term a next b)
    (define (iter a result)
        (if (> a b)
            result
            (iter (next a) (+ result (term a)))))
    (iter a 0))