SICP习题 1.18 (对求乘积进行优化)

最新推荐文章于 2021-03-07 15:04:27 发布

aoliupa8726

最新推荐文章于 2021-03-07 15:04:27 发布

阅读量88

点赞数

原文链接：http://www.cnblogs.com/R4mble/p/7889849.html

版权

(define (double a)
  (+ a a))

(define (halve a)
  (/ a 2))

(define (mult a b)
  (mult-iter a b 0))

(define (mult-iter a b product)
  (cond ((= b 0) product)
        ((even? b) (mult-iter (double a)
                              (halve b)
                              product))
        ((odd? b) (mult-iter a
                             (- b 1)
                             (+ a product)))))

(mult 123 124)

转载于:https://www.cnblogs.com/R4mble/p/7889849.html