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