Primality by Wilson's theorem: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add Modula-2) |
Not a robot (talk | contribs) (Add MAD) |
||
Line 1,795: | Line 1,795: | ||
2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 |
2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 |
||
</pre> |
</pre> |
||
=={{header|MAD}}== |
|||
<syntaxhighlight lang="mad"> NORMAL MODE IS INTEGER |
|||
INTERNAL FUNCTION(N) |
|||
ENTRY TO WILSON. |
|||
WHENEVER N.L.2, FUNCTION RETURN 0B |
|||
F = 1 |
|||
THROUGH FM, FOR I = N-1, -1, I.L.2 |
|||
F = F*I |
|||
FM F = F-F/N*N |
|||
FUNCTION RETURN N.E.F+1 |
|||
END OF FUNCTION |
|||
PRINT COMMENT $ PRIMES UP TO 100$ |
|||
THROUGH TEST, FOR V=1, 1, V.G.100 |
|||
TEST WHENEVER WILSON.(V), PRINT FORMAT NUMF, V |
|||
VECTOR VALUES NUMF = $I3*$ |
|||
END OF PROGRAM</syntaxhighlight> |
|||
{{out}} |
|||
<pre>PRIMES UP TO 100 |
|||
2 |
|||
3 |
|||
5 |
|||
7 |
|||
11 |
|||
13 |
|||
17 |
|||
19 |
|||
23 |
|||
29 |
|||
31 |
|||
37 |
|||
41 |
|||
43 |
|||
47 |
|||
53 |
|||
59 |
|||
61 |
|||
67 |
|||
71 |
|||
73 |
|||
79 |
|||
83 |
|||
89 |
|||
97</pre> |
|||
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
=={{header|Mathematica}}/{{header|Wolfram Language}}== |