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 implementation. It's grossly inefficient with large numbers.
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;