(define (search-for-primes n)
(cond (not (= (remainder n 2) 0))
((if (prime? n)
(time-prime-test n)
(search-for-primes (+ n 1))))
(else (search-for-primes (+ n 1)))))
转载于:https://www.cnblogs.com/science/archive/2006/12/27/605407.html