Primality by trial division: Difference between revisions
Content added Content deleted
Line 37: | Line 37: | ||
=={{header|Common Lisp}}== |
=={{header|Common Lisp}}== |
||
(defun primep (a) |
(defun primep (a) |
||
(cond ((= a 2) T) |
(cond ((= a 2) T) |
||
((or (<= a 1) (= (mod a 2) 0)) nil) |
((or (<= a 1) (= (mod a 2) 0)) nil) |