P31 (**) Determine whether a given integer number is prime.

问题描述

sash> (prime? 7)
   -> #t

解法

素数是大于1且约数只有1和其本身的整数。实现算法很多，下面是比较简单的一种。

(define prime?
    (lambda (n)
      (cond
        [(< n 2) #f]
        [(= n 2) #t]
        [(zero? (floor-remainder n 2)) #f]
        [else
         (let f ([i 3]) (cond [(> (* i i) n) #t] [else (if (zero? (floor-remainder n i)) #f (f (+ i 2)))]))])))