Data commit

Task/Set-consolidation/Egison/set-consolidation-1.egison

@@ -0,0 +1,10 @@
+(define $consolidate
+  (lambda [$xss]
+    (match xss (multiset (set char))
+      {[<cons <cons $m $xs>
+              <cons <cons ,m $ys>
+                    $rss>>
+        (consolidate {(unique/m char {m @xs @ys}) @rss})]
+       [_ xss]})))
+
+(test (consolidate {{'H' 'I' 'K'} {'A' 'B'} {'C' 'D'} {'D' 'B'} {'F' 'G' 'H'}}))

Task/Set-consolidation/Egison/set-consolidation-2.egison

@@ -0,0 +1 @@
+{"DBAC" "HIKFG"}