【SICP练习】18 练习1.24



练习1.24

我们先将书中已给出的代码写入Edwin中。

(define (fermat-test n)

   (define (try-it a)

       (= (expmod a n n) a))

   (try-it (+ 1 (random (- n 1)))))

(define (fast-prime? n times)

   (cond ((= times 0) true)

         ((fermat-test n) (fast-prime? n (- times 1)))

         (else false)))

(define (expmod base exp m)

   (cond ((= exp 0) 1)

         ((even? exp) (remainder (square (expmod base (/ exp 2) m)) m))

         (else (remainder (* base (expmod base (- exp 1) m)) m))))

于是就有了一个新的prime?函数如下：

(define (prime? n)

   (fast-prime? n 100))

然后载入上一题中的get-time&prime函数，如果已经在上一题中保存了起来现在就可以直接load了。然后经过一番测试后，结论很明显咯。练习1.22中的get-time&prime函数的复杂度为Θ(√n)，而本题中的复杂度为Θ(logn)。