Anonymous user
Primality by trial division: Difference between revisions
no edit summary
(Added PicoLisp) |
No edit summary |
||
Line 414:
1
</pre>
=={{header|Mathematica}}==
<lang>IsPrime[n_Integer] :=
Module[{k = 2},
If[n <= 1, Return False];
If[n == 2, Return True];
While[k <= Sqrt[n],
If[Mod[n, k] == 0, Return[False], k++]
];
Return[True]
]</lang>
=={{header|MAXScript}}==
| |||