Lisp 我在Scheme中定义了一个新的乘法函数,我认为这应该是错误的,但它是有效的
在方案中,新的乘法函数为:Lisp 我在Scheme中定义了一个新的乘法函数,我认为这应该是错误的,但它是有效的,lisp,scheme,sicp,Lisp,Scheme,Sicp,在方案中,新的乘法函数为: ( define ( iter b a n) ( cond (( = b 0) n) (( even? b) ( iter ( / b 2) ( * 2 a) n)) ( else ( iter ( - b 1) ( / ( * a b) ( - b 1)) ( + a ( * a ( - b 1))))))) ( define ( mul b a) ( iter b a 1)) 这个问题要求我用迭代法而
( define ( iter b a n)
( cond (( = b 0) n)
(( even? b) ( iter ( / b 2) ( * 2 a) n))
( else ( iter ( - b 1) ( / ( * a b) ( - b 1)) ( + a ( * a ( - b 1)))))))
( define ( mul b a)
( iter b a 1))
这个问题要求我用迭代法而不是递归法来处理这个问题,我的想法如下:
for example: ( mul 2 3 )
b a n
begin: 2 3 1
1 : 1 6 1
2 : 0 6/0 6
显然,在步骤2中,a等于6/0。这应该是不可能的。但该功能运行良好。有人能解释一下吗 不,该功能不能正常工作。复制过程的新定义,再次运行它,您将看到错误:
(define (iter b a n)
(cond ((= b 0) n)
((even? b)
(iter (/ b 2) (* 2 a) n))
(else
(iter (- b 1) (/ (* a b) (- b 1)) (+ a (* a (- b 1)))))))
(define (mul b a)
(iter b a 1))
(mul 2 3)
=> /: division by zero
事实上,预期的解决方案将更符合这些原则,请注意,如果b
为负值,则必须特别小心:
(define (iter a b n)
(cond ((zero? b) n)
((even? b)
(iter (+ a a) (/ b 2) n))
(else
(iter a (- b 1) (+ a n)))))
(define (mul a b)
(if (< b 0)
(- (iter a (- b) 0))
(iter a b 0)))
感谢您的解释,您的解决方案非常全面和详细。
a b n
begin: 2 3 0
1 : 2 2 2
2 : 4 1 2
3 : 4 0 6