Semiprime: Difference between revisions

m
→‎{{header|Perl 6}}: Minor style tweaks
m (→‎{{header|Perl 6}}: flatten primes lists)
m (→‎{{header|Perl 6}}: Minor style tweaks)
Line 1,362:
 
# Infinite list of semiprimes
constant @semiprimes = 4,lazy 6,gather 9,for ->4 $p.. * { ($p.take + 1if ... &is-semiprime).tail } ... *;
 
# Show the semiprimes < 100
Line 1,370:
# Check individual integers, or in this case, a range
my $s = 2⁹⁷ - 1;
say "Is $_ semiprime?: ", .&is-semiprime( $_ ) for $s .. $s + 30;
 
say 'elapsed seconds: ', now - $start;
10,333

edits