8 lines
157 B
Scheme
8 lines
157 B
Scheme
#lang sicp
|
|
|
|
(define (sum term a next b)
|
|
(define (iter a result)
|
|
(if (> a b)
|
|
result
|
|
(iter (next a) (+ result (term a)))))
|
|
(iter a 0))
|