(define (dou x) (* x 2))
(define (hal x) (/ x 2))
(define (fastmul a b)
(define (fastmul a b c)
(cond ((= b 0) c)
((even? b) (fastmul (dou a)
(hal b)
c))
(else (fastmul a
(- b 1)
(+ a c)))))
(fastmul a b 0))
1.1.8
最新推荐文章于 2019-07-16 10:52:24 发布