Semiprime: Difference between revisions
Content added Content deleted
(Add Seed7 example) |
|||
Line 133: | Line 133: | ||
{{out}} |
{{out}} |
||
4 6 9 10 14 15 21 22 25 26 33 34 35 38 39 46 49 51 55 57 58 62 65 69 74 77 82 85 86 87 91 93 94 95 |
4 6 9 10 14 15 21 22 25 26 33 34 35 38 39 46 49 51 55 57 58 62 65 69 74 77 82 85 86 87 91 93 94 95 |
||
=={{header|Common Lisp}}== |
|||
<lang Common Lisp>(defun semiprimep (n &optional (a 2)) |
|||
(cond ((> a (isqrt n)) nil) |
|||
((zerop (rem n a)) (and (primep a) (primep (/ n a)))) |
|||
(t (semiprimep n (+ a 1))))) |
|||
(defun primep (n &optional (a 2)) |
|||
(cond ((> a (isqrt n)) t) |
|||
((zerop (rem n a)) nil) |
|||
(t (primep n (+ a 1)))))</lang> |
|||
=={{header|D}}== |
=={{header|D}}== |