(define (double x) (+ x x))
(define (halve x) (/ x 2))
(define (even? x)
(= (remainder x 2) 0))
(define (multiply a b)
(cond ((= b 0) 0)
((even? b) (double (multiply a (halve b))))
(else (+ a (multiply a (- b 1))))))
(multiply 7 9)
SICP 练习1.17
最新推荐文章于 2016-06-12 18:47:11 发布