Long primes: Difference between revisions
m
→{{header|Common Lisp}}: Fix name of long-prime-p
m (→{{header|Common Lisp}}: Use Common Lispy -p instead of ? for predicates) |
m (→{{header|Common Lisp}}: Fix name of long-prime-p) |
||
Line 523:
finally (return t)))))
(defun long-
(cond
((< n 3) nil)
Line 538:
(= period (1- n))))))
(format t "~{~a~^, ~}" (loop for n from 1 to 500 if (long-
</lang>
{{Out}}
|