Truncatable primes: Difference between revisions
Content deleted Content added
Line 250:
}
sub trunc_prime ($
my $odd = $limit + ($limit % 2 ?? 0 !! 1);
next if $loop ~~ /0/; # No zeros allowed
my $this = $loop;
while $this.&isprime {
$this.=subst($
return $loop
}
}
| |||