14 lines
192 B
Text
14 lines
192 B
Text
setsubset(s,t)={
|
|
for(i=1,#s,
|
|
if(!setsearch(t,s[i]), return(0))
|
|
);
|
|
1
|
|
};
|
|
s=Set([1,2,2])
|
|
t=Set([4,2,4])
|
|
setsearch(s,1)
|
|
setunion(s,t)
|
|
setintersect(s,t)
|
|
setminus(s,t)
|
|
setsubset(s,t)
|
|
s==t
|