home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / amigae / e_v3.2a / src / guide / tree-use.e < prev    next >
Text File  |  1977-12-31  |  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.