Data commit

Task/Set-consolidation/Ela/set-consolidation-1.ela

@@ -0,0 +1,11 @@
+open list
+
+merge [] ys = ys
+merge (x::xs) ys | x `elem` ys = merge xs ys
+                 | else = merge xs (x::ys)
+
+consolidate (_::[])@xs = xs
+consolidate (x::xs) = conso [x] (consolidate xs)
+                where conso xs [] = xs
+                      conso (x::xs)@r (y::ys) | intersect x y <> [] = conso ((merge x y)::xs) ys
+                                              | else = conso (r ++ [y]) ys

Task/Set-consolidation/Ela/set-consolidation-2.ela

@@ -0,0 +1,9 @@
+open monad io
+
+:::IO
+
+do
+  x <- return $ consolidate [['H','I','K'], ['A','B'], ['C','D'], ['D','B'], ['F','G','H']]
+  putLn x
+  y <- return $ consolidate [['A','B'], ['B','D']]
+  putLn y