SICP习题1.22解答

(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)))))