SICP 习题 (1.22) 解题总结

最新推荐文章于 2026-06-08 13:10:46 发布
原创 最新推荐文章于 2026-06-08 13:10:46 发布 · 2.6k 阅读 · 0
本文详细介绍了SICP习题1.22的解题过程，涉及到优化素数检测算法以满足时间复杂度要求。作者通过替换(runtime)为(real-time-clock)来测量程序运行时间，并设计了一个过程(find-prime)用于寻找特定范围内的素数。测试结果显示，目标数扩大10倍，检查时间大约增加3倍，与θ(√n)复杂度预期相符。

SICP 习题 1.22 要求改进题中列举出来检查素数的过程，用来求1000， 10000， 100 000，还有1000 000附近的素数，然后比较求这些素数的时间，看是否符合θ(√n)的复杂度。


要完成这道题首先要将题目中列出的过程照抄到你的Scheme环境中。因为书中的代码使用了（runtime）过程，我就先在我的环境中测试了(runtime)的结果，很悲剧地发现(runtime)的返回值好几秒才变一个数字，根本没办法用来纪录计算过程所需要的时间。于是去查Mit-Scheme的参考文档，找到过程(real-time-clock) ，发现(real-time-clock)还靠谱一点，返回的是一个很长的整数，每次手工执行(real-t

最低0.47元/天 解锁文章
SICP 习题答案
05-16
SICP 习题答案 计算机程序的构造和解释 1-3章 习题答案
SICP习题 1.22(素数)
aoliupa8726的博客
11-24 170
(define (next-odd n) (if (odd? n) (+ 2 n) (+ 1 n))) (define (smallest-divisor n) (find-divisor n 2)) (define (find-divisor n test-divisor) (cond ((> (square test...
SICP读书笔记1---练习1.22的思考
山鸡哥的专栏
12-12 522
1.对于没有赋值语句的程序如何实现参数改变 （1）递归调用改变参数 比如，我要实现检验输入的参数begin是一个偶数还是奇数，如果是奇数进行下一步，如果是偶数就+1将其设置为奇数。 程序如下： (define (search-for-primes begin counter) (if (= (remainder begin 2) 0)      (search-for-primes (
SICP学习笔记：最大公约数和素数检测
pyb的博客
03-27 623
[0]最大公约数:求最大公约数的一个简单办法是欧几里德算法.对于a,b，GCD（a,b）= GCD(b,r)。b是a/b的余数证明如下:a = kb + r(1)，设 m = GCD（a,b），a = m*a1,b = m*b1.所以 （1）可以变形： a1 = kb1 + r/m;显然r/m必然是一个整数,记为r1。得到a1 = kb1 + r1(2)。现在证明m也是b和r的最大公约数,只须证b1
SICP 1.22
qq_34488711的博客
04-27 311
search-for-primes 函数接受参数 n ，找出大于等于 n 的三个素数，并且返回运行时间。 首先定义函数 next-odd 接受一个参数 n ，生成跟随在 n 之后的第一个奇数：(define (next-odd n) (if (odd? n) (+ 2 n) (+ 1 n)))直接重用书本 33 页的 prime? 函数检测给定数是否为素数
sicp练习 1.22
独立之人格，自由之思想
05-27 236
(define (square x) (* x x)) (define (smallest-divisor n) (find-divisor n 2)) (define (find-divisor n test-divisor) (cond ((> (square test-divisor) n) n) ((divides? test-d...
SICP 习题 （1.36）解题总结
keyboardOTA的专栏
05-02 4066
SICP 习题 1.36 要求我们修改fixed-point函数，使它能够打印出计算中产生的近似值序列，使用练习1.22展示的newline和display方法。而后通过找出变换x => log (1000)/log(x)的不动点的方式确定x^x=1000的一个根（书中还提示你使用Scheme的基本过程log，用于计算自然对数值）。然后比较一下使用平均阻尼和不用平均阻尼的计算步数。要注意的是不能使
SICP 习题 （2.22）解题总结: 迭代过程中的列表处理
keyboardOTA的专栏
01-12 3095
SICP 习题 2.22是习题2.21的后续题目，题目中讲到叫Louis Reasoner的人想重写suqare-list过程，希望使用迭代计算过程，而不是递归计算过程，有关迭代计算过程和递归计算过程，如果你没什么印象了，请翻回习题1.9 的解题总结看看。那个叫Louis Reasoner的人写的迭代版的suqre-list是这样的：(define (square-list-revert item
SICP 习题 （1.42）解题总结
keyboardOTA的专栏
07-01 4138
SICP  习题 1.42 出人意料的简单，题目要求我们定义一个名为compose的过程，该过程接收两个参数，都是单参数过程，要求我们将这两个参数代表的过程串起来。题目举例((compose square inc) 6)等于49，其中inc过程接收一个参数，执行加一操作，而square过程也只接收一个参数，执行求平方操作，6加1再求平方就是49了。如果习题1.41都做完了，这道题就比较简单了，定义
SICP 解题集
alien10086的博客
05-20 1924
第一章练习1.15 a:p被使用啦5次 b:angle每乘以3，p多调用一次。空间和步数都为线性增长。 练习1.16 (cond [(= n 0) a] [(even? n) (first-e (square b) (/ n 2) a )] [(odd? n) (first-e b (- n 1) (* a b ))])) (define (square x)
SICP 1.21 1.22 体会
weixin_33913377的博客
04-26 109
1.21 简单的将书上代码敲了一遍。 非常顺利就过了。 1.22 就悲剧了。          先按书本的意思。代码非常快就写完了。但计算的时间在机子上漂浮不定。 3-5倍之间。          代码例如以下： (define (search-for-primes start end count)     (define (timed-prime-test n) (newli...
SICP 1.22 答案
11-10 173
程序写出来了，但是时间没打印，DrScheme不支持。。。 [code="Scheme"](define (smallest-divisor n) (find-divisor n 2)) (define (find-divisor n test-divisor) (cond ((> (* test-divisor test-divisor) n) n) ((d...
SICP 习题1.22
NM的专栏
06-03 391
寻找大于某个数的三个素数(define (smallest-divisor n) (find-divisor n 2))(define (find-divisor n test-divisor) (cond ((> (square test-divisor) n) n) ((divides? test-divisor n) test-divisor) (els
告别502！Spring Boot应用在K8S滚动更新中的实战避坑指南（附preStop与readinessProbe配置）
最新发布
weixin_30550081的博客
06-08 469
本文详细介绍了Spring Boot应用在Kubernetes（K8S）滚动更新中实现零停机的实战避坑指南。通过配置readinessProbe和preStop钩子，确保应用在启动和终止阶段的稳定性，避免502等常见错误。文章提供了完整的Deployment配置示例和高级场景应对策略，帮助开发者优化发布流程。
SICP学习笔记（1.2.1 ~ 1.2.2）
weixin_33958366的博客
09-21 210
                                    SICP学习笔记（1.2.1 ~ 1.2.2）                                             周银辉 1， 递归过程 和 递归计算过程 在学习SICP前我还没注意过有这样的一个区分，因为我们始终停留在语法表面上的“递归过程（recursive procedure）”，而没...
《SICP》中的一些练习题
Azarath Metrion Zinthos
06-09 1209
1.16(define (square n) (* n n)) (define (fast-expt b n) (cond ((= n 0) 1) ((even? n) (square (fast-expt b (/ n 2)))) (else (* b (fast-expt b (- n 1)))))) (define (my-expt b n) (defi
SICP练习题 1.7~1.8
dulao5的专栏
03-12 587
<br /> 1.7 mysqrt的改进<br />改善精度控制的细节, 判断如果连续两次迭代的猜测值相差很小, 就退出. 实验表明达到效果了, 大数和小数都得到了很大改善.<br />美中不足是我还不会用变量, get-guess-result方法被重复调用了.<br />(define (mysqrt x) (define default-guess 1.0) (define min-dx 0.000000001) (define (get-guess-result guess )
《SICP》习题第1章
四毛毛的博客
11-13 1409
本人做的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...
【SICP练习】16 练习1.22
weixin_34075551的博客
02-07 137
 练习1.22 这道题中需要判断素数的部分书中都已经列出来了，但要求是要找出多个素数，因此我们要有一个能够不断求素数的函数。在C等语言中我们可以通过一个for循环来轻易地求出来，在Scheme中我们完全可以用迭代来实现这一功能。另外因为是要的素数，因此完全不用考虑偶数了。于是我们先来写一个不断求奇数的函数。 (define (odd-afte...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值