all tasks

Task/Sorting-algorithms-Merge-sort/Perl-6/sorting-algorithms-merge-sort.pl6

@@ -0,0 +1,17 @@
+sub merge_sort ( @a ) {
+    return @a if @a <= 1;
+
+    my $m = @a.elems div 2;
+    my @l = merge_sort @a[  0 ..^ $m ];
+    my @r = merge_sort @a[ $m ..^ @a ];
+
+    return @l, @r if @l[*-1] !after @r[0];
+    return gather {
+        take @l[0] before @r[0] ?? @l.shift !! @r.shift
+            while @l and @r;
+        take @l, @r;
+    }
+}
+my @data = 6, 7, 2, 1, 8, 9, 5, 3, 4;
+say 'input  = ' ~ @data;
+say 'output = ' ~ @data.&merge_sort;