Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Sorting-algorithms-Merge-sort/Perl/sorting-algorithms-merge-sort.pl
+++ b/Task/Sorting-algorithms-Merge-sort/Perl/sorting-algorithms-merge-sort.pl
@ -0,0 +1,18 @@
+sub merge_sort {
+    my @x = @_;
+    return @x if @x < 2;
+    my $m = int @x / 2;
+    my @a = merge_sort(@x[0 .. $m - 1]);
+    my @b = merge_sort(@x[$m .. $#x]);
+    for (@x) {
+        $_ = !@a            ? shift @b
+           : !@b            ? shift @a
+           : $a[0] <= $b[0] ? shift @a
+           :                  shift @b;
+    }
+    @x;
+}
+
+my @a = (4, 65, 2, -31, 0, 99, 83, 782, 1);
+@a = merge_sort @a;
+print "@a\n";