44 lines
1.3 KiB
Plaintext
44 lines
1.3 KiB
Plaintext
DIM list$(6)
|
|
list$() = "apple", "banana", "cherry", "date", "elderberry", "fig", "grape"
|
|
|
|
setA% = %1010101
|
|
PRINT "Set A: " FNlistset(list$(), setA%)
|
|
setB% = %0111110
|
|
PRINT "Set B: " FNlistset(list$(), setB%)
|
|
elementM% = %0000010
|
|
PRINT "Element M: " FNlistset(list$(), elementM%) '
|
|
|
|
IF elementM% AND setA% THEN
|
|
PRINT "M is an element of set A"
|
|
ELSE
|
|
PRINT "M is not an element of set A"
|
|
ENDIF
|
|
IF elementM% AND setB% THEN
|
|
PRINT "M is an element of set B"
|
|
ELSE
|
|
PRINT "M is not an element of set B"
|
|
ENDIF
|
|
|
|
PRINT '"The union of A and B is " FNlistset(list$(), setA% OR setB%)
|
|
PRINT "The intersection of A and B is " FNlistset(list$(), setA% AND setB%)
|
|
PRINT "The difference of A and B is " FNlistset(list$(), setA% AND NOT setB%)
|
|
|
|
IF (setA% AND setB%) = setA% THEN
|
|
PRINT '"Set A is a subset of set B"
|
|
ELSE
|
|
PRINT '"Set A is not a subset of set B"
|
|
ENDIF
|
|
IF setA% = setB% THEN
|
|
PRINT "Set A is equal to set B"
|
|
ELSE
|
|
PRINT "Set A is not equal to set B"
|
|
ENDIF
|
|
END
|
|
|
|
DEF FNlistset(list$(), set%)
|
|
LOCAL i%, o$
|
|
FOR i% = 0 TO 31
|
|
IF set% AND 1 << i% o$ += list$(i%) + ", "
|
|
NEXT
|
|
= LEFT$(LEFT$(o$))
|