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