Semiprime: Difference between revisions

m
→‎{{header|Perl 6}}: user the more idiomatic nok
(add PicoLisp)
m (→‎{{header|Perl 6}}: user the more idiomatic nok)
Line 455:
my @primes = grep &is-prime, 2 .. 100;
for ^5 {
ok notnok is-semiprime([*] my @f1 = @primes.roll(1)), ~@f1;
ok is-semiprime([*] my @f2 = @primes.roll(2)), ~@f2;
ok notnok is-semiprime([*] my @f3 = @primes.roll(3)), ~@f3;
ok notnok is-semiprime([*] my @f4 = @primes.roll(4)), ~@f4;
}</lang>
{{out}}
1,934

edits