(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-divisor n) test-divisor)
(else (find-divisor n (+ test-divisor 1)))))
(define (divides? a b)
(= (remainder b a) 0))
(define (prime? n)
(= (smallest-divisor n) n))
(define (search-for-primes start-num end-num)
(search-for-primes-iter start-num end-num (runtime)))
(define (search-for-primes-iter start-num end-num start-time)
(cond ((< start-num end-num) (begin (prime? start-num)
(search-for-primes-iter (+ start-num 1) end-num start-time)))
((= start-num end-num) (begin (prime? start-num)
(newline)
(display "all over time: ")
(display(- (runtime) start-time))
(newline)
(- (runtime) start-time)))))
;(search-for-primes 1000000 1000100)
;(search-for-primes 10000000 10000100)
;(search-for-primes 100000000 100000100)
(/ (search-for-primes 10000000 10001000) (search-for-primes 1000000 1001000) 1.0)
(/ (search-for-primes 100000000 100001000) (search-for-primes 10000000 10001000) 1.0)
(/ (search-for-primes 1000000000 1000001000) (search-for-primes 100000000 100001000) 1.0)
(/ (search-for-primes 10000000000 10000001000) (search-for-primes 1000000000 1000001000) 1.0)
分享到:
相关推荐
西普 我的 SICP 练习。
NULL 博文链接:https://pengpeng.iteye.com/blog/1344689
sicp-clojure 在 Clojure 中解决的 SICP 练习
SICP习题解答,主要第一章的内容习题答案
sicp 我对SICP练习的回答
SICP 习题答案 计算机程序的构造和解释 1-3章 习题答案
SICP-解决方案我对 SICP 练习的回答
sicp
SICP 在 Scheme 中制定的 SICP 练习
SICP书中练习的解决方案。 使用mit-scheme编译器9.2。
SICP - 笔记和练习我把它放在这里是因为有一天它可能会帮助某人。 练习是ex*文件。 章节中的注释和代码是ch文件。安装下载 Racket.app。 使用 DrRacket.app 或像这样启动 Racket repl: /Applications/Racket\ v...
sicp in python 中文版 sicp in python 中文版 sicp in python 中文版 !!!download>>>https://github.com/wizardforcel/sicp-py-zh
MySICP解决方案 我试图在这个寒假里学习旱灾,这是我对课本习题的解答... 这些答案不一定正确,我可能无法解决所有练习。 但是您可以参考提供的标准解决方案我正在使用中文版的sicp。 教科书中有一些错误, 可以在找到
SICP中文第二版SICP中文第二版SICP中文第二版SICP中文第二版SICP中文第二版
该存储库包含我对《的教科书中提供的练习的所有解决方案。 它们已使用。 请随时使用解决方案进行自己的学习。 如果您发现我的解决方案有任何问题,那么可以向我指出。 我们将不胜感激地收到改进和增强的解决方案。 ...
SICP_章_1-3 我对SICP第二版第1-3章的解决方案: 书中练习来自示例分配/ psets 项目位于 最后,来自考试
SICP-Python版本
SICP 使用的scheme解释器 以前叫DrScheme