SICP 练习1.18

与做 ab 的方法类似,将 b 减半,将a加倍,直到 b 0
(define (double x) (+ x x))
(define (halve x) (/ x 2))
(define (even? x)
  (= (remainder x 2) 0))

(define (fast-multiply ret a b)
  (cond ((= b 0) ret)
        ((even? b) (fast-multiply ret (double a) (halve b)))
        (else (fast-multiply  (+ ret a) a (- b 1)))))

(define (multiply a b)
  (fast-multiply 0 a b))

(multiply 8 11)
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值