Truncatable primes: Difference between revisions

Content deleted Content added
Line 250:
}
 
sub trunc_prime ($type, $limit is copy) {
my $odd = $limit += ($limit % 2 ?? 0 !! 1);
for ($oddlimit, * - 2 ... * < 2 ) -> $loop {
next if $loop ~~ /0/; # No zeros allowed
my $this = $loop;