4.3BSD/usr/contrib/icon/test/distr/set02.out

every s1 := insert(set([]),!&lcase) ----> none
s2 := set(["a","aa","ab","b",1,2,3,4]) ----> set(8)
s3 := s1 ++ s2 ----> set(32)
s4 := s1 ** s2 ----> set(2)
s5 := s1 -- s2 ----> set(24)
*s3 ----> 32
n
1
o
2
p
3
q
4
r
s
t
u
v
w
x
y
aa
z
ab
a
b
c
d
e
f
g
h
i
j
k
l
m
every write(!s3) ----> none
*s4 ----> 2
a
b
every write(!s4) ----> none
*s5 ----> 24
n
o
p
q
r
s
t
u
v
w
x
y
z
c
d
e
f
g
h
i
j
k
l
m
every write(!s5) ----> none
Run-time error 119 at line 20 in set02.icn
set expected
offending value: 'a'