Primality by trial division: Difference between revisions
Content added Content deleted
m (→improved using number wheel: unit extended with nextPrime/actPrime) |
(→{{header|Common Lisp}}: removed wrong function) |
||
Line 575: | Line 575: | ||
=={{header|Common Lisp}}== |
=={{header|Common Lisp}}== |
||
<lang Lisp> (defun primep (a) |
|||
(cond ((= a 2) T) |
|||
((or (<= a 1) (= (mod a 2) 0)) nil) |
|||
((loop for i from 3 to (sqrt a) by 2 do |
|||
(if (= (mod a i) 0) |
|||
(return nil))) nil) |
|||
(T T)))</lang> |
|||
<lang Lisp>(defun primep (n) |
<lang Lisp>(defun primep (n) |
||
"Is N prime?" |
"Is N prime?" |