SICP习题 1.17 (用加法求乘积)

递归乘法算法

weixin_30615767

于 2017-11-24 11:33:00 发布

阅读量94

点赞数

CC 4.0 BY-SA版权

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

本文介绍了一种使用递归方式实现的乘法算法，该算法通过判断乘数的奇偶性来选择不同的递归调用策略，实现了两个整数相乘的功能。文中给出了具体的Scheme语言实现代码。

(define (double x)
  (+ x x))

(define (halve x)
  (/ x 2))

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

(mult 12 12)

(define (double x)
  (+ x x))

(define (halve x)
  (/ x 2))

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

(mult 12 12)

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