Revision as of 17:32, 24 August 2021 (view source) Markjreed (talk \| contribs) (→‎{{header\|Common Lisp}}: Add implementation.) ← Older edit		Revision as of 17:35, 24 August 2021 (view source) Markjreed (talk \| contribs) m (→‎{{header\|Common Lisp}}) Newer edit →
Line 519: ((some #'zerop (mapcar (lambda (d) (mod n d)) '(2 3))) nil) (t (loop for i = 5 then (+ i 6) while (<= (* i i) n) when (some #'zerop (mapcar (lambda (d) (mod n (+ i d))) '(0 2))) return nil finally (return t))))) (defun long-prime? (n)

Long primes: Difference between revisions

Long primes (view source)