SICP习题集

网上解题集给出的迭代版本是 (define (f n) (f-iter 2 1 0 0 n)) (define (f-iter a b c i n) (if (= i n) c (f-iter (+ a (* 2 b) (* 3 c)) ; new a a ; n

10 12 8 3 6 undef undef 19 #f 4 16 6 16

(define (p) (p))(define (test x y) (if (= x 0) 0 y))(test 0 (p)) 哇,这么快就印证了我的想法了吗. 首先用R5RS跑一遍,啥都没有.然后切换成Lazy Racket,结果为0. 解释:前者是应用序,p一传进来就求值,不断的调用自己,无限循环. 　　后者是正则序,从头到尾都没执行p. 到此处我又...

本人做的SICP习题第1章，如有错误请指正，用的解释器是Racket   练习1.1 计算代码如下 ;; Exercise 1.1 #lang racket 10 (+ 5 3 4) (- 9 1) (/ 6 2) (+ (* 2 4) (- 4 6)) (define a 3) (define b (+ a 1)) (+ a b (* a b)) (= a b) (i...

一、空间增长的阶 因为从（cc 11 5）到（cc 0 1）总共16层（树的深度为16），所以可以看出最大步骤层数（所需空间增长的阶）是：11+5=16（因为(cc 11 x)中的x为(1-5)，(cc y 1)的y为(0-11)，(cc 11 1)中x和y都用了就算一个步骤层）。可推断出最大步骤层数可能和输入的关系大概为kinds-of-coins + amount 这样一个值，最大步骤层数的增长正比于输入（amount的值越大，kinds-of-coins +amount的值也就越大）。深度为n+5，其

 练习1.1 这道题主要是关于简单的数字运算，我们看完之后可以在MIT-Scheme中进行验算。如果环境不熟悉，可以参见【Scheme归纳】的第一篇博文。如果发现在MIT-Scheme等环境上的运算结果和自己算的不一样，也应该再仔细看看在书写代码的时候有没有手误。 练习1.2 这是一道将表达式转换成前缀形式的题目，博主最喜欢Lisp中的一大堆括号...

练习1.8 (define (good-enough? old new) (and (< (/ old new) 1.001) (> (/ old new) 0.999))) (define (improve guess x) (/ (+ (/ x (* guess guess)) (* 2 guess)) 3)) (define (cube-root guess...

最近在看《计算机程序的构造和解释 》，感觉很不错，打开眼界。为了从中获得最多的收益，打算把书中的习题都做了，又怕坚持不下来。我决定把做完的习题贴到博客上，可以鼓励自己，边做边贴，直到全部做完为止。

SICP 习题 1.12 要完成的工作是帕斯卡三角，有没有觉得“帕斯卡”这三个字很熟悉呀，在你人生知识水平的最高点上你应该接触过他，不过现在你可能忘了。 仔细回想的话，你可能会有点印象，物理中的压强单位就是“帕斯卡”。很开心地告诉你，这两个“帕斯卡”是同一个人。帕斯卡不仅是个物理学家，还是个数学家，百度百科里这样描述：“布莱士.帕斯卡是法国数学家、物理学家、哲学家、散文家。” 。 人家还...

2.6 [code="java"](define zero (lambda (f) (lambda (x) x))) (define (add-1 n) (lambda (f) (lambda (x) (f ((n f) x))))) ((zero 4) 3) (add-1 5 1)[/code] 2.7 [code="java"](define (add-interva...

函数 ff 是递归实现函数 f1f1 是迭代实现(define (f n) (cond ((< n 3) n) (else (+ (f (- n 1)) (* 2 (f (- n 2))) (* 3 (f (- n 3)))))))(define (f1 n) (f2 2 1 0 n))(define (f2

SICP 习题 1.22 要求改进题中列举出来检查素数的过程，用来求1000， 10000， 100 000，还有1000 000附近的素数，然后比较求这些素数的时间，看是否符合θ(√n)的复杂度。 要完成这道题首先要将题目中列出的过程照抄到你的Scheme环境中。因为书中的代码使用了（runtime）过程，我就先在我的环境中测试了(runtime)的结果，很悲剧地发现(runtime)的返回值好