Substring primes: Difference between revisions
Content added Content deleted
(Added solution for Action!) |
m (→{{header|ALGOL 68}}: The sieve generated by PRIMESIEVE now includes 0) |
||
Line 79: | Line 79: | ||
INT n := p; |
INT n := p; |
||
WHILE is substring AND n > 0 DO |
WHILE is substring AND n > 0 DO |
||
is substring := prime[ n MOD d ]; |
|||
is substring := IF sub digits = 0 THEN FALSE ELSE prime[ sub digits ] FI; |
|||
n OVERAB 10 |
n OVERAB 10 |
||
OD; |
OD; |