Primality by Wilson's theorem: Difference between revisions
m
→{{header|PL/I}}: Tweak
m (→{{header|Lua}}: Tweak) |
m (→{{header|PL/I}}: Tweak) |
||
Line 1,232:
declare ( fmodp, i ) binary(15)fixed;
fmodp = 1;
do i =
fmodp = mod( fmodp * i, n );
end;
return
end isWilsonPrime ;
do n =
if isWilsonPrime( n ) then do;
put edit( n ) ( f(3) );
|