Anonymous user
Truncatable primes: Difference between revisions
→{{header|Perl 6}}: remove redundant prime test
(→{{header|Perl 6}}: replace with much faster version) |
(→{{header|Perl 6}}: remove redundant prime test) |
||
Line 1,095:
=={{header|Perl 6}}==
<lang perl6>my @primes := 2, 3, 5, -> $p { ($p+2, $p+4 ... &prime)[*-1] } ... *;
sub prime($i) { (state @)[$i] //= $i %% none @primes ... * >= sqrt $i }
| |||