Sorting algorithms/Counting sort: Difference between revisions
m
→{{header|Perl 6}}: flatten sub return value
No edit summary |
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: flatten sub return value) |
||
Line 1,589:
=={{header|Perl 6}}==
{{Works with|rakudo|2016.03}}
<lang perl6>sub counting-sort (@ints) {
my $off = @ints.min;
(my @counts)[$_ - $off]++ for @ints;
flat @counts.kv.map: { ($^k + $off) xx ($^v // 0) }
}</lang>
Testing:
| |||