Pan base non-primes: Difference between revisions
m
→{{header|ALGOL 68}}: tweak and emove duplicate declaration
(Added Algol 68) |
m (→{{header|ALGOL 68}}: tweak and emove duplicate declaration) |
||
Line 104:
pbnp[ pbnp count +:= 1 ] := n
ELSE
BOOL comp := TRUE;
STRING s = whole( n, 0 );
FOR base FROM 2 TO n WHILE comp := NOT is probably prime( str to dec( s, base ) ) DO SKIP OD;
IF comp THEN pbnp[ pbnp count +:= 1 ] := n FI
FI
| |||