Anonymous user
Best shuffle: Difference between revisions
→{{header|Perl 6}}
Line 1,950:
=={{header|Perl 6}}==
{{works with|Rakudo Star|2010.12}}
{{incorrect|Perl 6| Counterexample:
<lang perl6> printf "%s, %s, (%d)\n", $_, best-shuffle $_ for <aaaabbbbcccc>;</lang>
{{out}}
<pre>
aaaabbbbcccc, bbbcaaccaabc, (1)
</pre>
<code>bbbcaaccaabc</code> is not the best shuffle. <code>bbbbccccaaaa</code> is better.
}}
<lang perl6>sub best-shuffle (Str $s) {
| |||