(define (cuigang) (coding))

(define (coding) (coding))

我的SICP习题答案(1.9)

很显然,第一个是递归的,第二个是迭代的。

(+ 4 5)
(if (
= 4 05 (inc (+ (dec 45)))
(inc (+ 
3 5))
(inc (if (
= 3 05 (inc (+ 2 5))))
(inc (inc (if (
= 2 05 (inc (+ 1 5)))))
(inc (inc (inc (if (
= 1 05 (inc (+ 0 5))))))
(inc (inc (inc (inc (if (
= 0 05 (inc (+ (dec 05)))))))
(inc (inc (inc (inc 
5))))
(inc (inc (inc 
6)))
(inc (inc 
7))
(inc 
8)
9

(+ 
4 5)
(if (
= 4 05 (+ 3 6))
(if (
= 3 06 (+ 2 7))
(if (
= 2 07 (+ 1 8))
(if (
= 1 08 (+ 0 9))
(if (
= 0 09 (+ (dec 0) (inc 9)))
9


posted on 2008-03-11 21:53 cuigang 阅读(576) 评论(0)  编辑 收藏 引用 所属分类: Lisp/Scheme我的SICP答案


标题  
姓名  
主页
验证码 *
内容(提交失败后,可以通过“恢复上次提交”恢复刚刚提交的内容)  
  登录  使用高级评论  新用户注册  返回页首  恢复上次提交      
[使用Ctrl+Enter键可以直接提交]