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