Anti-primes: Difference between revisions

m
→‎{{header|Perl 6}}: Add some hyphens
(→‎{{header|Perl 6 }}: Add a Perl 6 example)
m (→‎{{header|Perl 6}}: Add some hyphens)
Line 79:
my atomicint $last = 0;
 
my @antiprimesanti-primes = lazy 1, |(|(2..989), 990, *+30 …^ *).hyper.grep: -> $c {
my \mx = +propdiv($c);
next if mx <= $last;
Line 88:
my $upto = 5e5;
 
put "First 20 antiprimesanti-primes:\n{ @antiprimesanti-primes[^20] }";
 
put "\nCount of antiprimesanti-primes <= $upto: {+@antiprimesanti-primes[^(@antiprimesanti-primes.first: * > $upto, :k)]}";</lang>
{{out}}
<pre>First 20 antiprimesanti-primes:
1 2 4 6 12 24 36 48 60 120 180 240 360 720 840 1260 1680 2520 5040 7560
 
Count of antiprimesanti-primes <= 500000: 36</pre>
 
=={{header|Python}}==
10,343

edits