Best shuffle: Difference between revisions
Content added Content deleted
| Line 1,950: | Line 1,950: | ||
=={{header|Perl 6}}== |
=={{header|Perl 6}}== |
||
{{works with|Rakudo Star|2010.12}} |
{{works with|Rakudo Star|2010.12}} |
||
{{incorrect|Perl 6| |
{{incorrect|Perl 6| See [[Talk:Best_shuffle#Perl_6]] in talk page.}} |
||
<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) { |
<lang perl6>sub best-shuffle (Str $s) { |
||