feat: added difference and symmetricDifference and union

prelude/__internal__/List.mad

@@ -1085,3 +1085,36 @@ export cut = (a, xs) => {
     Nothing
   }
 }
+/**
+ * Finds the set (i.e. no duplicates) of all elements in the first list not contained in the second list. 
+ * @example
+ * difference([1,2,3,4], [7,6,5,4,3]) // [1,2]
+ * difference([7,6,5,4,3], [1,2,3,4]) // [7,6,5]
+ */
+difference :: Eq a => List a -> List a -> List a
+export difference = (z, a) => reduce((stack, c) => includes(c, a) ? stack : [...stack, c], [], z)
+
+/**
+ * Finds the set (i.e. no duplicates) of all elements contained in the first or second list, but not both.
+ * @example
+ * symmetricDifference([1,2,3,4], [7,6,5,4,3]) // [1,2,7,6,5]
+ * symmetricDifference([7,6,5,4,3], [1,2,3,4]) // [7,6,5,1,2]
+ */
+symmetricDifference :: Eq a => List a -> List a -> List a
+export symmetricDifference = (z, a) => reduce(
+  (stack, c) => includes(c, a) && includes(c, z) ? stack : [...stack, c],
+  [],
+  concat(z, a),
+)
+
+/**
+ * Combines two lists into a set (i.e. no duplicates) composed of the elements of each list
+ * @example
+ * union([1, 2, 3], [2, 3, 4]) // [1, 2, 3, 4]
+ */
+union :: Eq a => List a -> List a -> List a
+export union = (a, z) => reduce(
+  (stack, c) => includes(c, stack) ? stack : [...stack, c],
+  [],
+  concat(a, z),
+)

prelude/__internal__/List.spec.mad

@@ -10,6 +10,7 @@ import {
   concat,
   contains,
   cut,
+  difference,
   drop,
   dropLast,
   dropWhile,
@@ -38,11 +39,13 @@ import {
   sort,
   sortDesc,
   startsWith,
+  symmetricDifference,
   tail,
   tails,
   take,
   takeLast,
   takeWhile,
+  union,
   uniqueBy,
 } from "./List"
 
@@ -288,3 +291,17 @@ test("all - false", () => assertEquals(all((x) => x > 4, [1, 2, 10]), false))
 test("cut", () => assertEquals(cut(5, range(1, 11)), Just(#[[1, 2, 3, 4, 5], [6, 7, 8, 9, 10]])))
 test("cut - negative index", () => assertEquals(cut(-1, range(1, 11)), Nothing))
 test("cut - invalid index", () => assertEquals(cut(16, range(1, 11)), Nothing))
+
+test("difference", () => assertEquals(difference([1, 2, 3, 4], [7, 6, 5, 4, 3]), [1, 2]))
+test("difference - swap", () => assertEquals(difference([7, 6, 5, 4, 3], [1, 2, 3, 4]), [7, 6, 5]))
+
+test(
+  "symmetricDifference",
+  () => assertEquals(symmetricDifference([1, 2, 3, 4], [7, 6, 5, 4, 3]), [1, 2, 7, 6, 5]),
+)
+test(
+  "symmetricDifference",
+  () => assertEquals(symmetricDifference([7, 6, 5, 4, 3], [1, 2, 3, 4]), [7, 6, 5, 1, 2]),
+)
+
+test("union", () => assertEquals(union(range(1, 11), range(11, 21)), range(1, 21)))