Substring primes: Difference between revisions

Content added Content deleted

Inline

@@ Line 79: / Line 79: @@
                 INT n := p;
                 WHILE is substring AND n > 0 DO
-                    INT sub digits = n MOD d;
+                    is substring := prime[ n MOD d ];
-                    is substring := IF sub digits = 0 THEN FALSE ELSE prime[ sub digits ] FI;
                     n OVERAB 10
                 OD;