all tasks

Task/Sorting-algorithms-Merge-sort/J/sorting-algorithms-merge-sort-1.j

@@ -0,0 +1,3 @@
+merge     =: ,`(({.@] , ($: }.))~` ({.@] , ($: }.)) @.(>&{.))@.(*@*&#)
+split     =: </.~ 0 1$~#
+mergeSort =: merge & $: &>/ @ split ` ] @. (1>:#)

Task/Sorting-algorithms-Merge-sort/J/sorting-algorithms-merge-sort-2.j

@@ -0,0 +1,16 @@
+merge=: 4 : 0
+ if. 0= x *@*&# y do. x,y return. end.
+ la=.x
+ ra=.y
+ z=.i.0
+ while. la *@*&# ra do.
+  if. la  >&{. ra do.
+    z=.z,{.ra
+    ra=.}.ra
+  else.
+    z=.z,{.la
+    la=.}.la
+  end.
+ end.
+ z,la,ra
+)