6 lines
152 B
Common Lisp
6 lines
152 B
Common Lisp
(defun primep (n)
|
|
"Is N prime?"
|
|
(and (> n 1)
|
|
(or (= n 2) (oddp n))
|
|
(loop for i from 3 to (isqrt n) by 2
|
|
never (zerop (rem n i)))))
|