(define (accumulate combiner null-value term a next b)
(define (iter a result)
(if (> a b)
result
(iter (next a)
(combiner (term a) result))))
(iter a null-value))
(define (sum term a next b)
(accumulate +
0
term
a
next
b))
(define (product term a next b)
(accumulate *
1
term
a
next
b))
(sum (lambda (x) x)
1
(lambda (i) (+ i 1))
10)
转载于:https://www.cnblogs.com/R4mble/p/7893254.html
相关资源：JAVA上百实例源码以及开源项目
