1 implementation module BinTree
5 :: Tree a = Node a (Tree a) (Tree a) | Leaf
18 t5 = Node 1 Leaf (Node 2 Leaf (Node 3 Leaf (Node 4 Leaf Leaf)))
20 t6 = Node 1 (Node 2 (Node 3 (Node 4 Leaf Leaf) Leaf) Leaf) Leaf
22 t7 = Node 4 (Node 1 Leaf Leaf) (Node 5 (Node 2 Leaf Leaf) Leaf)
25 //nodes :: // meest algemene type
28 //Start = map nodes [t0,t1,t2,t3,t4,t5,t6,t7]
30 //leaves :: // meest algemene type
33 //Start = map leaves [t0,t1,t2,t3,t4,t5,t6,t7]
35 //diepte :: // meest algemene type
38 //Start = map diepte [t0,t1,t2,t3,t4,t5,t6,t7]