Primality by trial division: Difference between revisions
Add min
(Add min) |
|||
Line 1,853:
map(isprme, [2, 3, 4, 65, 100, 181, 901]);
/* [true, true, false, false, false, true, false] */</lang>
=={{header|min}}==
{{works with|min|0.19.3}}
<lang min>(
:n 3 :i n sqrt :m true :p
(i m <=) (
(n i mod 0 ==) (m @i false @p) when
i 2 + @i
) while p
) :_prime? ; helper function
(
(
((2 <) (false))
((dup even?) (2 ==))
((true) (_prime?))
) case
) :prime?</lang>
=={{header|МК-61/52}}==
| |||