25 lines
421 B
Plaintext
25 lines
421 B
Plaintext
MODULE '*set'
|
|
|
|
PROC main() HANDLE
|
|
DEF s=NIL:PTR TO set
|
|
NEW s.create(20)
|
|
s.add(1)
|
|
s.add(-13)
|
|
s.add(91)
|
|
s.add(42)
|
|
s.add(-76)
|
|
IF s.member(1) THEN WriteF('1 is a member\n')
|
|
IF s.member(11) THEN WriteF('11 is a member\n')
|
|
WriteF('s = ')
|
|
s.print()
|
|
WriteF('\n')
|
|
EXCEPT DO
|
|
END s
|
|
SELECT exception
|
|
CASE "NEW"
|
|
WriteF('Out of memory\n')
|
|
CASE "full"
|
|
WriteF('Set is full\n')
|
|
ENDSELECT
|
|
ENDPROC
|