Primality by Wilson's theorem: Difference between revisions
m
→{{header|ALGOL W}}: tweak
m (→{{header|ALGOL 68}}: tweak) |
m (→{{header|ALGOL W}}: tweak) |
||
Line 223:
% allow numbers whose factorial won't fit in 32 bits %
logical procedure isWilsonPrime ( integer value n ) ;
begin
factorialModN :=
for i := 2 until n - 1 do factorialModN :=
▲ factorialModN = n - 1
▲ end isWilsonPrime ;
for i := 1 until 100 do if isWilsonPrime( i ) then writeon( i_w := 1, s_w := 0, " ", i );
|