Almost prime: Difference between revisions
m
→{{header|Perl 6}}: minor style change
m (→{{header|Perl 6}}: adding introductory comment) |
m (→{{header|Perl 6}}: minor style change) |
||
Line 9:
Recursive implementation. Quite slow.
<lang perl6>sub is-k-almost-prime($n, $k) {
$n
(state @)[$k][$n] //=
$k == 1 ?? $n.is-prime !!
|