Factorial primes: Difference between revisions

m
→‎{{header|ALGOL 68}}: (very) small tweak
(Added Algol 68)
m (→‎{{header|ALGOL 68}}: (very) small tweak)
Line 43:
FOR n WHILE fp count < 10 DO
f *:= n;
IF LONG INT fp := f - 1;
is probably prime( fp ) THEN
THEN
fp count +:= 1;
show factorial prime( fp count, n, "-", fp )
FI;
IF LONG INT fp := f + 1;
is probably prime( fp ) THEN
THEN
fp count +:= 1;
show factorial prime( fp count, n, "+", fp )
3,049

edits