Best shuffle: Difference between revisions
m
→{{header|Perl 6}}: fixed code and added output
(Kotlin version updated) |
m (→{{header|Perl 6}}: fixed code and added output) |
||
Line 2,063:
=={{header|Perl 6}}==
{{trans|Sidef}}
{{works with|Rakudo Star|
<lang perl6>sub best-shuffle
my @orig = $s.comb;▼
my @
for ^@s -> $j {
}
}
}
my
++$count if $v eq @s[$k]
}
▲ @new.join, $score;
}
printf "%s, %s, (%d)\n", $_, best-shuffle $_
for <abracadabra seesaw elk grrrrrr up a>;</lang>
{{out}}
<pre>
abracadabra, raacarabadb, (0)
seesaw, wssaee, (0)
elk, lke, (0)
grrrrrr, rrrgrrr, (5)
up, pu, (0)
a, a, (1)
</pre>
=={{header|Phix}}==
|