Substring primes: Difference between revisions

m
→‎{{header|ALGOL 68}}: The sieve generated by PRIMESIEVE now includes 0
(Added solution for Action!)
m (→‎{{header|ALGOL 68}}: The sieve generated by PRIMESIEVE now includes 0)
Line 79:
INT n := p;
WHILE is substring AND n > 0 DO
INTis sub digitssubstring := prime[ n MOD d ];
is substring := IF sub digits = 0 THEN FALSE ELSE prime[ sub digits ] FI;
n OVERAB 10
OD;
3,038

edits