Anti-primes: Difference between revisions
m
→{{header|Perl 6}}: Reduce some redundant calculations
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Don't need sequence limiter as it's a lazy list) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Reduce some redundant calculations) |
||
Line 79:
my atomicint $last = 0;
my @anti-primes = lazy 1, |(|(2..
my \mx = +propdiv($c);
next if mx <= $last;
$last = mx;
$c
}
| |||