Truncatable primes: Difference between revisions

next if $loop ~~ /0/; # No zeros allowed

my $this = $loop;

while $this.&isprime {

$this.=subst($filter, '');

}

}

}