Truncatable primes: Difference between revisions

Content deleted Content added
Line 241: Line 241:
return (%cache{$test} = 0) if $test ~~ any(0,1);
return (%cache{$test} = 0) if $test ~~ any(0,1);
if $test <= 25 {
if $test <= 25 {
return $test ~~ any(2,3,5,7,11,17,19,23) ??
return $test ~~ any(2,3,5,7,11,13,17,19,23) ??
(%cache{$test} = 1) !!
(%cache{$test} = 1) !!
(%cache{$test} = 0);
(%cache{$test} = 0);