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