Pierpont primes: Difference between revisions
m
→{{header|Perl 6}}: simplify
(→{{header|Factor}}: rewrite) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: simplify) |
||
Line 183:
loop {
my $key = @head
my $min = @head[$key];
@head[$key] = @iterators[$key].pull-one;
| |||