Anonymous user
Semiprime: Difference between revisions
→{{header|Perl 6}}: prefer to indent subclauses
(→{{header|Perl 6}}: making extensive tests) |
(→{{header|Perl 6}}: prefer to indent subclauses) |
||
Line 21:
return False if $n.is-prime;
return .is-prime given
$n div first $n %% *,
grep &is-prime, 2 .. *;
}
| |||