home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / dev / AmigaE / E_v3.2a / Src / Guide / tree-use.e < prev    next >
Text File  |  1994-12-14  |  313b  |  20 lines
  1. MODULE '*tree'
  2.  
  3. PROC main()
  4.   DEF t:PTR TO integer_tree
  5.   NEW t.create(10)
  6.   t.add(-10)
  7.   t.add(3)
  8.   t.add(5)
  9.   t.add(-1)
  10.   t.add(1)
  11.   WriteF('t has \d nodes, with \d leaves: ',
  12.          t.nodes(), t.leaves())
  13.   t.leaves(TRUE)
  14.   WriteF('\n')
  15.   WriteF('Contents of t: ')
  16.   t.print()
  17.   WriteF('\n')
  18.   END t
  19. ENDPROC
  20.