Primality by trial division: Difference between revisions
Content added Content deleted
No edit summary |
(Adding MUMPS example) |
||
| Line 427: | Line 427: | ||
=={{header|MAXScript}}== |
=={{header|MAXScript}}== |
||
<lang MAXScript> fn isPrime n = |
|||
( |
( |
||
if n == 2 then |
if n == 2 then |
||
| Line 444: | Line 444: | ||
true |
true |
||
) |
) |
||
</lang> |
|||
=={{header|MUMPS}}== |
|||
<lang MUMPS>ISPRIME(N) |
|||
QUIT:(N=2) 1 |
|||
NEW I,TP |
|||
SET TP=+'$PIECE((N/2),".",2) |
|||
IF 'TP FOR I=3:2:(N**.5) SET TP=+'$PIECE((N/I),".",2) Q:TP |
|||
KILL I |
|||
QUIT 'TP</lang> |
|||
Usage (0 is false, nonzero is true): |
|||
<pre>USER>W $$ISPRIME^ROSETTA(2) |
|||
1 |
|||
USER>W $$ISPRIME^ROSETTA(4) |
|||
0 |
|||
USER>W $$ISPRIME^ROSETTA(7) |
|||
1 |
|||
USER>W $$ISPRIME^ROSETTA(97) |
|||
1 |
|||
USER>W $$ISPRIME^ROSETTA(99) |
|||
0 |
|||
</pre> |
|||
=={{header|OCaml}}== |
=={{header|OCaml}}== |
||