All pastes #2092053 Raw Edit

Someone

public text v1 · immutable
#2092053 ·published 2011-10-21 00:18 UTC
rendered paste body
(define (accumulate combiner nullval term a next b)
    (define (accum-iter count currval)
        (if (> count b)
            currval
            (accum-iter (next count) (combiner currval (term count)))))
    (accum-iter a nullval))