home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Best of Mecomp Multimedia 2
/
MECOMP-CD-II.iso
/
amiga
/
programmieren
/
e
/
e_v3.3a
/
src.lha
/
Src
/
Guide
/
tree-use.e
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Text File
|
1994-12-14
|
313 b
|
20 lines
MODULE '*tree'
PROC main()
DEF t:PTR TO integer_tree
NEW t.create(10)
t.add(-10)
t.add(3)
t.add(5)
t.add(-1)
t.add(1)
WriteF('t has \d nodes, with \d leaves: ',
t.nodes(), t.leaves())
t.leaves(TRUE)
WriteF('\n')
WriteF('Contents of t: ')
t.print()
WriteF('\n')
END t
ENDPROC