Anti-primes: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Add some hyphens) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Don't need sequence limiter as it's a lazy list) |
||
Line 79: | Line 79: | ||
my atomicint $last = 0; |
my atomicint $last = 0; |
||
my @anti-primes = lazy 1, |(|(2..989), 990, *+30 … |
my @anti-primes = lazy 1, |(|(2..989), 990, *+30 … *).hyper.grep: -> $c { |
||
my \mx = +propdiv($c); |
my \mx = +propdiv($c); |
||
next if mx <= $last; |
next if mx <= $last; |