Truncatable primes: Difference between revisions

Content deleted Content added

Inline

@@ Line 252: / Line 252: @@
 sub trunc_prime ($filter, $limit) {
     my $odd = $limit + ($limit % 2 ?? 0 !! 1);
-    loop (my $loop = $odd; $loop -= 2; $loop <= 2) {
+    loop (my $loop = $odd; $loop -= 2; $loop <= 2 ) {
         next if $loop ~~ /0/; # No zeros allowed
         my $this = $loop;
-        my ($answer, @these);
+        my $answer;
         while $this.&isprime {
-            push @these, $this;
             $this.=subst($filter, '');
             $answer = $loop if $this eq '';
         }
-        return @these[0] and last if $answer;
+        return $answer and last if $answer;
     }
 }