SICP 1.27 1.28体会

最新推荐文章于 2017-04-07 11:51:12 发布

原创最新推荐文章于 2017-04-07 11:51:12 发布 · 1.1k 阅读

0 ·

CC 4.0 BY-SA版权

SICP 专栏收录该内容

8 篇文章

订阅专栏

本文详细介绍了在面对编程难题时，尤其是调试和优化方案时所遇到的常见问题和解决策略。从简单的调试问题出发，深入探讨了如何有效识别并解决复杂的编程挑战。通过实例分析，提供了实用的编程技巧和解决方案，旨在提升程序员的代码调试能力和效率。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

这2题目，还算比较简单。

做了3天的题，最大的痛苦就是还不大会调试，所有代码均靠大脑分析，太痛苦了。

最坑的就是，经常漏函数参数， load的时候系统也不报错，运行时的错误提示又如同天书，看来还是先要找本讲scheme的书先学习下，否则效率太低了。

1.27 主要是写个迭代代码，测试所有2到n-1。代码如下：

1.28 主要是要理解条件，对1.27的fermat-test函数做修改

关键是下面代码

(define (square-with-check base x)
(define (remainder-check base r)
(if (and (= r 1)
(not (= base 1))
(not (= base (- n 1))))
0
r))
(remainder-check x (remainder (square x) n)))

完整代码如下：

(define (prime-test n)
(define (prime-test-iter start end)
(if (> start end)
true
(if (fermat-test start)
(prime-test-iter (+ start 1) end)
false)))
(define (fermat-test a)
(= (expmod a (- n 1)) 1))

(define (expmod base exp)
(cond ((= exp 0) 1)
((even? exp)
(square-with-check base (expmod base (/ exp 2))))
(else
(remainder (* base (expmod base (- exp 1)))
n))))
(define (square-with-check base x)
(define (remainder-check base r)
(if (and (= r 1)
(not (= base 1))
(not (= base (- n 1))))
0
r))
(remainder-check x (remainder (square x) n)))
(prime-test-iter 2 (- n 1)))