2015/10/07

SICP 問題1.30

sumを末尾再帰で書き直す

(define (sum term a next b)
  (define (iter a result)
    (if (> a b)
        result
        (iter (next a) (+ (term a) result))))
  (iter a 0))

© 2022 wat-aro