Truncatable primes: Difference between revisions
Content deleted Content added
m →{{header|Perl 6}}: Fixed "works with" |
m →{{header|Perl 6}}: Improved alignment |
||
| Line 257: | Line 257: | ||
} |
} |
||
say "Largest Left Truncatable Prime < 1000000: ",trunc_prime(rx/^\d/, 1000000); |
say "Largest Left Truncatable Prime < 1000000: ",trunc_prime(rx/^\d/, 1000000); |
||
say "Largest Right Truncatable Prime < 1000000: ",trunc_prime(rx/\d$/, 1000000); |
say "Largest Right Truncatable Prime < 1000000: ",trunc_prime(rx/\d$/, 1000000); |
||
</lang> |
</lang> |
||
Output: |
Output: |
||
<pre> |
<pre> |
||
Largest Left Truncatable Prime < 1000000: 998443 |
Largest Left Truncatable Prime < 1000000: 998443 |
||
Largest Right Truncatable Prime < 1000000: 739339 |
Largest Right Truncatable Prime < 1000000: 739339 |
||
</pre> |
</pre> |
||