Semiprime: Difference between revisions
Content added Content deleted
(Perl 6) |
m (→{{header|Perl 6}}: rephrasing) |
||
Line 17: | Line 17: | ||
=={{header|Perl 6}}== |
=={{header|Perl 6}}== |
||
Here is a naive |
Here is a naive, grossly inefficient implementation. |
||
<lang perl6>sub is-semiprime (Int $n --> Bool) { |
<lang perl6>sub is-semiprime (Int $n --> Bool) { |
||
return False if $n.is-prime; |
return False if $n.is-prime; |