Data commit

Task/Set/Run-BASIC/set.basic

@@ -0,0 +1,70 @@
+A$	= "apple cherry elderberry grape"
+B$	= "banana cherry date elderberry fig"
+C$	= "apple cherry elderberry grape orange"
+D$	= "apple cherry elderberry grape"
+E$	= "apple cherry elderberry"
+M$	= "banana"
+
+print "A = ";A$
+print "B = ";B$
+print "C = ";C$
+print "D = ";D$
+print "E = ";E$
+print "M = ";M$
+
+if instr(A$,M$) = 0 then a$ = "not "
+print "M is ";a$; "an element of Set A"
+a$ = ""
+if instr(B$,M$) = 0 then a$ = "not "
+print "M is ";a$; "an element of Set B"
+
+un$ = A$ + " "
+for i = 1 to 5
+ if instr(un$,word$(B$,i)) = 0 then un$ = un$ + word$(B$,i) + " "
+next i
+print "union(A,B) = ";un$
+
+for i = 1 to 5
+ if instr(A$,word$(B$,i)) <> 0 then ins$ = ins$ + word$(B$,i) + " "
+next i
+print "Intersection(A,B) = ";ins$
+
+for i = 1 to 5
+ if instr(B$,word$(A$,i)) = 0 then dif$ = dif$ + word$(A$,i) + " "
+next i
+print "Difference(A,B) = ";dif$
+
+a = subs(A$,B$,"AB")
+a = subs(A$,C$,"AC")
+a = subs(A$,D$,"AD")
+a = subs(A$,E$,"AE")
+
+a = eqs(A$,B$,"AB")
+a = eqs(A$,C$,"AC")
+a = eqs(A$,D$,"AD")
+a = eqs(A$,E$,"AE")
+end
+
+function subs(a$,b$,sets$)
+ for i = 1 to 5
+   if instr(b$,word$(a$,i)) <> 0 then subs = subs + 1
+ next i
+if subs = 4 then
+  print left$(sets$,1);" is a subset of ";right$(sets$,1)
+else
+  print left$(sets$,1);" is not a subset of ";right$(sets$,1)
+end if
+end function
+
+function eqs(a$,b$,sets$)
+for i = 1 to 5
+ if word$(a$,i) <> "" then a = a + 1
+ if word$(b$,i) <> "" then b = b + 1
+ if instr(b$,word$(a$,i)) <> 0 then c = c + 1
+next i
+if (a = b) and (a = c) then
+  print left$(sets$,1);" is equal ";right$(sets$,1)
+else
+  print left$(sets$,1);" is not equal ";right$(sets$,1)
+end if
+end function