Add Array.removeInPlace

Author: DZakh

runtime/Stdlib_Array.res

@@ -103,11 +103,14 @@ external copyWithin: (array<'a>, ~target: int, ~start: int, ~end: int) => array<
 @send external shift: array<'a> => option<'a> = "shift"
 
 @variadic @send
-external splice: (array<'a>, ~start: int, ~remove: int, ~insert: array<'a>) => unit = "splice"
+external splice: (array<'a>, ~start: int, ~remove: int, ~insert: array<'a>) => array<'a> = "splice"
 @variadic @send
 external toSpliced: (array<'a>, ~start: int, ~remove: int, ~insert: array<'a>) => array<'a> =
   "toSpliced"
 
+@send
+external removeInPlace: (array<'a>, int, @as(1) _) => unit = "splice"
+
 @send external with: (array<'a>, int, 'a) => array<'a> = "with"
 
 @send external unshift: (array<'a>, 'a) => unit = "unshift"

runtime/Stdlib_Array.resi

@@ -296,12 +296,15 @@ array->assertEqual([1, 2, 3])
 external sort: (array<'a>, ('a, 'a) => Stdlib_Ordering.t) => unit = "sort"
 
 @variadic @send
-external splice: (array<'a>, ~start: int, ~remove: int, ~insert: array<'a>) => unit = "splice"
+external splice: (array<'a>, ~start: int, ~remove: int, ~insert: array<'a>) => array<'a> = "splice"
 
 @variadic @send
 external toSpliced: (array<'a>, ~start: int, ~remove: int, ~insert: array<'a>) => array<'a> =
   "toSpliced"
 
+@send
+external removeInPlace: (array<'a>, int, @as(1) _) => unit = "splice"
+
 @send external with: (array<'a>, int, 'a) => array<'a> = "with"
 
 /**

tests/tests/src/core/Core_ArrayTests.mjs

@@ -457,6 +457,83 @@ Test.run([
   "last - empty"
 ], Stdlib_Array.last([]), eq, undefined);
 
+let array = [];
+
+Test.run([
+  [
+    "Core_ArrayTests.res",
+    116,
+    15,
+    42
+  ],
+  "splice - Insert no delete"
+], [
+  array.splice(1, 0, "foo"),
+  array
+], eq, [
+  [],
+  ["foo"]
+]);
+
+let array$1 = [
+  "bar",
+  "baz"
+];
+
+Test.run([
+  [
+    "Core_ArrayTests.res",
+    126,
+    15,
+    43
+  ],
+  "splice - Insert and delete"
+], [
+  array$1.splice(1, 1, "foo"),
+  array$1
+], eq, [
+  ["baz"],
+  [
+    "bar",
+    "foo"
+  ]
+]);
+
+let array$2 = [];
+
+array$2.splice(0, 1);
+
+Test.run([
+  [
+    "Core_ArrayTests.res",
+    136,
+    22,
+    45
+  ],
+  "removeInPlace - empty"
+], array$2, eq, []);
+
+let array$3 = [
+  "Hello",
+  "Hi",
+  "Good bye"
+];
+
+array$3.splice(1, 1);
+
+Test.run([
+  [
+    "Core_ArrayTests.res",
+    142,
+    22,
+    51
+  ],
+  "removeInPlace - from middle"
+], array$3, eq, [
+  "Hello",
+  "Good bye"
+]);
+
 export {
   eq,
 }

tests/tests/src/core/Core_ArrayTests.res

@@ -109,3 +109,35 @@ Test.run(
 
 Test.run(__POS_OF__("last - with items"), [1, 2, 3]->Array.last, eq, Some(3))
 Test.run(__POS_OF__("last - empty"), []->Array.last, eq, None)
+
+{
+  let array = []
+  Test.run(
+    __POS_OF__("splice - Insert no delete"),
+    (array->Array.splice(~start=1, ~remove=0, ~insert=["foo"]), array),
+    eq,
+    ([], ["foo"]),
+  )
+}
+
+{
+  let array = ["bar", "baz"]
+  Test.run(
+    __POS_OF__("splice - Insert and delete"),
+    (array->Array.splice(~start=1, ~remove=1, ~insert=["foo"]), array),
+    eq,
+    (["baz"], ["bar", "foo"]),
+  )
+}
+
+{
+  let array = []
+  array->Array.removeInPlace(0)
+  Test.run(__POS_OF__("removeInPlace - empty"), array, eq, [])
+}
+
+{
+  let array = ["Hello", "Hi", "Good bye"]
+  array->Array.removeInPlace(1)
+  Test.run(__POS_OF__("removeInPlace - from middle"), array, eq, ["Hello", "Good bye"])
+}