Add immutable sort to Array

Author: cknitt

src/Core__Array.mjs

@@ -21,6 +21,12 @@ function lastIndexOfOpt(arr, item) {
 
 }
 
+function sort(arr, cmp) {
+  var result = arr.slice();
+  result.sort(cmp);
+  return result;
+}
+
 function reduce(a, x, f) {
   var f$1 = Curry.__2(f);
   var r = x;
@@ -107,6 +113,7 @@ function flatMap(a, f) {
 }
 
 export {
+  sort ,
   indexOfOpt ,
   lastIndexOfOpt ,
   reduce ,

src/Core__Array.res

@@ -39,8 +39,6 @@ external copyWithin: (array<'a>, ~target: int, ~start: int, ~end: int) => array<
 
 @send external shift: array<'a> => option<'a> = "shift"
 
-@send external sortInPlace: (array<'a>, ('a, 'a) => int) => unit = "sort"
-
 @variadic @send
 external spliceInPlace: (array<'a>, ~start: int, ~remove: int, ~insert: array<'a>) => unit =
   "splice"
@@ -78,6 +76,14 @@ let lastIndexOfOpt = (arr, item) =>
 @send external sliceToEnd: (array<'a>, ~start: int) => array<'a> = "slice"
 @send external copy: array<'a> => array<'a> = "slice"
 
+@send external sortInPlace: (array<'a>, ('a, 'a) => int) => unit = "sort"
+
+let sort = (arr, cmp) => {
+  let result = copy(arr)
+  sortInPlace(result, cmp)
+  result
+}
+
 @send external toString: array<'a> => string = "toString"
 @send external toLocaleString: array<'a> => string = "toLocaleString"
 

src/Core__Array.resi

@@ -20,6 +20,7 @@ external copyWithin: (array<'a>, ~target: int, ~start: int, ~end: int) => array<
 @variadic @send external pushMany: (array<'a>, array<'a>) => unit = "push"
 @send external reverseInPlace: array<'a> => unit = "reverse"
 @send external shift: array<'a> => option<'a> = "shift"
+let sort: (array<'a>, ('a, 'a) => int) => array<'a>
 @send external sortInPlace: (array<'a>, ('a, 'a) => int) => unit = "sort"
 @variadic @send
 external spliceInPlace: (array<'a>, ~start: int, ~remove: int, ~insert: array<'a>) => unit =