SICP Exercise 1.22 遇到的问题

最新推荐文章于 2025-11-26 01:49:17 发布

最新推荐文章于 2025-11-26 01:49:17 发布 · 201 阅读

文章标签：

#runtime

程序的构造与解释专栏收录该内容

8 篇文章

订阅专栏

本文介绍了解答SICP练习1.22时遇到的问题及解决方法，针对DrScheme4.2环境下无法加载runtime过程的情况，通过修改原始代码实现质数测试的功能。

进行SICP Exercise 1.22 时遇到无法加载runtime过程的问题。

我的开发环境是DrScheme 4.2. 于是将原文的例子做了修改。修改例程和结果例程如下：

修改例程

(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)
  )
(define (square n)
  (* n n)
  )

(define (timed-prime-test n)
  (start-prime-test n )
  )
(define (start-prime-test n )
  (prime? n)
  )

结果例程

(define (search-for-primes n)
  (if (= (timed-prime-test (+ n 1)) (+ n 1))
      (+ n 1)
      (search-for-primes (+ n 1))
      )
  )

(search-for-primes 100000)