files/practicum/BinTreePrint.icl

   1 implementation module BinTreePrint
   2
   3 import StdEnv
   4 import BinTree
   5 import TextCompose              // als je tree2D implementeert
   6
   7 Start                                                           = map (flip (+++) "\n" o toString) [t0,t1,t2,t3,t4,t5,t6,t7]
   8
   9 instance toString (Tree a) | toString a where
  10         toString tree                                   = indentTree tree
  11 //      toString tree                                   = tree2D tree
  12
  13 /******************************************************************************************
  14         version with indented trees
  15 ******************************************************************************************/
  16 indentTree                                                      :: !(Tree a) -> String | toString a
  17 indentTree tree                                         = ...
  18
  19 /******************************************************************************************
  20         version with TextCompose
  21 ******************************************************************************************/
  22 tree2D                                                          :: !(Tree a) -> String | toString a
  23 tree2D tree                                                     = ...