Semiprime: Difference between revisions
m
→{{header|Perl 6}}: flatten primes lists
(added Factor) |
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: flatten primes lists) |
||
Line 1,298:
not $n.is-prime and
.is-prime given
$n div first $n %% *, flat grep &is-prime, 2 .. *;
}
use Test;
my @primes = flat grep &is-prime, 2 .. 100;
for ^5 {
nok is-semiprime([*] my @f1 = @primes.roll(1)), ~@f1;
| |||