Anti-primes: Difference between revisions
Content added Content deleted
Catskill549 (talk | contribs) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: use atomic ops to try to avoid concurrency issues.) |
||
| Line 734: | Line 734: | ||
my \mx = +propdiv($c); |
my \mx = +propdiv($c); |
||
next if mx <= $last; |
next if mx <= $last; |
||
$last |
atomic-assign: $last, mx; |
||
$c |
$c |
||
} |
} |
||