Anonymous user
Primality by trial division: Difference between revisions
Adding MUMPS example
No edit summary |
(Adding MUMPS example) |
||
Line 427:
=={{header|MAXScript}}==
(
if n == 2 then
Line 444:
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}}==
|