SICP問題1.30
元のsum
(define (sum term a next b) (if (> a b) 0 (+ (term a) (sum term (next a) next b))))
反復的なsum。
(define (sum term a next b) (define (iter a result) (if (> a b) result (iter (next a) (+ (term a) result)))) (iter a 0))
元のsum
(define (sum term a next b) (if (> a b) 0 (+ (term a) (sum term (next a) next b))))
反復的なsum。
(define (sum term a next b) (define (iter a result) (if (> a b) result (iter (next a) (+ (term a) result)))) (iter a 0))