level 5
让群众来监督你，摆脱拖延症！！！
不懂的来吧里提问哦~~~~
![[大拇指]](/static/emoticons/u5927u62c7u6307.png)
![[笑眼]](/static/emoticons/u7b11u773c.png)
level 11
level 5
躺问套
楼主
今天看完11.5节(98页)。
遇到了两个问题，第一个是：什么是深度表，这个是我的粗心，11.2节就提到了，我没仔细看。
第二个问题没有解决，代码问题 第 11.5.2题
(define (add n x)
(cond
[(zero? n) x]
[else (add1 (add (sub1 n) x))]))
(define (multiply n x)
(cond
[(zero? n) 0]
[else (add x (multiply (sub1 n) x))]))
;multiply-by-pi : number -> number
(define (multiply-by-3.14 n)
(cond
[(zero? n) 0]
[else (add 3.14 (multiply-by-pi (sub1 n)))]))
(define (multiply-by-pi n)
(cond
[(zero? n) 0]
[else (+ pi (multiply-by-pi (sub1 n)))]))
DrRacket测试结果如下
> (multiply-by-pi 3)
#i9.42477796076938
测试未启用。
> (multiply 2 3)
6
测试未启用。
> (add 3 4)
7
测试未启用。
> (multiply-by-3.14 3)
user break
>
问题是 为什么 (multiply-by-3.14 3) 计算不出，DrRacket会卡住？
将 multiply-by-pi 中的 " + " 改成 “add” DrRacket也会卡住。
2014年03月12日 14点03分
5
遇到了两个问题，第一个是：什么是深度表，这个是我的粗心，11.2节就提到了，我没仔细看。
第二个问题没有解决，代码问题 第 11.5.2题
(define (add n x)
(cond
[(zero? n) x]
[else (add1 (add (sub1 n) x))]))
(define (multiply n x)
(cond
[(zero? n) 0]
[else (add x (multiply (sub1 n) x))]))
;multiply-by-pi : number -> number
(define (multiply-by-3.14 n)
(cond
[(zero? n) 0]
[else (add 3.14 (multiply-by-pi (sub1 n)))]))
(define (multiply-by-pi n)
(cond
[(zero? n) 0]
[else (+ pi (multiply-by-pi (sub1 n)))]))
DrRacket测试结果如下
> (multiply-by-pi 3)
#i9.42477796076938
测试未启用。
> (multiply 2 3)
6
测试未启用。
> (add 3 4)
7
测试未启用。
> (multiply-by-3.14 3)
user break
>
问题是 为什么 (multiply-by-3.14 3) 计算不出，DrRacket会卡住？
将 multiply-by-pi 中的 " + " 改成 “add” DrRacket也会卡住。
问题出在add的定义上，这里定义的 add 只有当 n 是整数时才能正确运行： 举例(add 1.1 10) 由于终止条件是 n = 0 而 n= n - 1的迭代过程永远不会让n=0而使程序陷入无限递归不会终止的状态，最后内存耗尽程序卡死而结束
2014年03月12日 15点03分
所以这里定义的 add 并不是完全意义上 等同于 + 运算 对于浮点数，负数等都不能使用此处的add 此题，multiply-by-3.14中的 add 改成 + 应该就是楼主希望的记过了。 原因同上，add定义问题。 只是粗略的看了一下，不知道说的对不对。
2014年03月12日 15点03分
补充：此处的add定义只有当 n 等于正整数和零的时候才能正确运行。
2014年03月12日 15点03分
回复 zzd3zzd :3q！
2014年03月12日 15点03分