Anonymous user
Truncatable primes: Difference between revisions
→{{header|Perl}}
Line 1,185:
for my $prime (@primes) {
last if $prime >= $n;
return
}
Line 1,193:
$new += 2 until is_prime($new);
push @primes, $new;
return
}
Line 1,203:
sub trunc {
my ($n, $side) = @_;
return $n;
}
Line 1,211 ⟶ 1,210:
sub is_tprime {
my ($n, $side) = @_;
return
}
Line 1,219 ⟶ 1,218:
my @tprimes = ('9' x $length) x 2;
for my $side (LEFT, RIGHT) {
$tprimes[$side] -= 2 until
and is_tprime($tprimes[$side], $side);
}
print 'left ', join(', right ', @tprimes), "\n";
</lang>
{{out}}
<pre>left 998443, right 739399</pre>
| |||