Data update

Task/Set-consolidation/Run-BASIC/set-consolidation.basic

@@ -0,0 +1,52 @@
+function consolidate$(s$)
+    dim sets$(100)
+    n = 0
+    for i = 1 to len(s$)
+        if mid$(s$, i, 1) = "," then
+            n = n + 1
+        else
+            sets$(n) = sets$(n) + mid$(s$, i, 1)
+        end if
+    next i
+
+    for i = 0 to n
+        p = i
+        ts$ = ""
+        for j = i to 0 step -1
+            if ts$ = "" then p = j
+            ts$ = ""
+            for k = 1 to len(sets$(p))
+                if j > 0 then
+                    if instr(sets$(j-1), mid$(sets$(p), k, 1)) = 0 then
+                        ts$ = ts$ + mid$(sets$(p), k, 1)
+                    end if
+                end if
+            next k
+            if len(ts$) < len(sets$(p)) then
+                if j > 0 then
+                    sets$(j-1) = sets$(j-1) + ts$
+                    sets$(p) = "-"
+                    ts$ = ""
+                end if
+            else
+                p = i
+            end if
+        next j
+    next i
+
+    temp$ = sets$(0)
+    for i = 1 to n
+        temp$ = temp$ + "," + sets$(i)
+    next i
+
+    consolidate$ = s$ + " = " + temp$
+end function
+
+dim test$(3)
+test$(0) = "AB"
+test$(1) = "AB,CD"
+test$(2) = "AB,CD,DB"
+test$(3) = "HIK,AB,CD,DB,FGH"
+for t = 0 to 3
+    print consolidate$(test$(t))
+next t