files/practicum/BinTreeTraversal.icl

   1 module BinTreeTraversal
   2
   3 import StdEnv
   4 import BinTree
   5
   6 testboom = Node 10
   7                         (Node 6
   8                                 (Node 2 Leaf (Node 4 Leaf (Node 5 Leaf Leaf)))
   9                                 (Node 7 Leaf Leaf)
  10                         )
  11                         (Node 14
  12                                 (Node 12
  13                                         (Node 11 Leaf Leaf)
  14                                         (Node 13 Leaf Leaf)
  15                                 )
  16                                 (Node 17 Leaf Leaf)
  17                         )
  18
  19 lijstOplopend :: (Tree a) -> [a]
  20 lijstOplopend ...
  21
  22 lijstAflopend :: (Tree a) -> [a]
  23 lijstAflopend ...
  24
  25 lijstNaarBladen :: (Tree a) -> [a]
  26 lijstNaarBladen ...
  27
  28 Start = (lijstOplopend   testboom, '\n'
  29         ,lijstAflopend   testboom, '\n'
  30         ,lijstNaarBladen testboom
  31         )