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

set([1,0,1,0,1,0,1,0]) ----> set(2)
set([]) ----> set(0)
s := set([1,2,3,4,5,6,7,8,9,10]) ----> set(10)
*s ----> 10
?s ----> 3
?s ----> 5
1
2
3
4
5
6
7
8
9
10
every write(!s) ----> none
1
2
3
4
5
6
7
8
9
10
every write(!sort(s)) ----> none
*copy(s) ----> 10
image(s) ----> "set(10)"
type(s) ----> "set"
member(s,8) ----> 8
member(s,"8") ----> none
s := set([]) ----> set(0)
every insert(s,1 to 100) ----> none
*s ----> 100
37
74
1
38
75
2
39
76
3
40
77
4
41
78
5
42
79
6
43
80
7
44
81
8
45
82
9
46
83
10
47
84
11
48
85
12
49
86
13
50
87
14
51
88
15
52
89
16
53
90
17
54
91
18
55
92
19
56
93
20
57
94
21
58
95
22
59
96
23
60
97
24
61
98
25
62
99
26
63
100
27
64
28
65
29
66
30
67
31
68
32
69
33
70
34
71
35
72
36
73
every write(!s) ----> none
every delete(s,15 to 30) ----> none
*s ----> 84
37
74
1
38
75
2
39
76
3
40
77
4
41
78
5
42
79
6
43
80
7
44
81
8
45
82
9
46
83
10
47
84
11
48
85
12
49
86
13
50
87
14
51
88
52
89
53
90
54
91
55
92
56
93
57
94
58
95
59
96
60
97
61
98
62
99
63
100
64
65
66
67
31
68
32
69
33
70
34
71
35
72
36
73
every write(!s) ----> none
Run-time error 119 at line 29 in set01.icn
set expected
offending value: &null