2016 Update

2016-12-05 22:15:40 +01:00 · 2016-12-05 22:15:40 +01:00 · dcf5d15da3
commit dcf5d15da3
parent 948b86eafa
7965 changed files with 139854 additions and 31002 deletions
--- a/Task/Sorting-algorithms-Counting-sort/Perl-6/sorting-algorithms-counting-sort-1.pl6
+++ b/Task/Sorting-algorithms-Counting-sort/Perl-6/sorting-algorithms-counting-sort-1.pl6
@ -1,5 +1,5 @@
 sub counting-sort (@ints) {
    my $off = @ints.min;
    (my @counts)[$_ - $off]++ for @ints;
-    @counts.kv.map: { ($^k + $off) xx ($^v // 0) }
+    flat @counts.kv.map: { ($^k + $off) xx ($^v // 0) }
 }