Yellowstone sequence: Difference between revisions
m
→{{header|Perl 6}}: Slightly less inefficient
(→{{header|Go}}: Fixed bug though results unaffected.) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Slightly less inefficient) |
||
Line 191:
my \index = ($min .. *).first: { not @used[$_] and $_ gcd $q != 1 and $_ gcd $p == 1 };
@used[index] = True;
$min = @used.first(!*, :k) //
index
} … *;
| |||