blob: eb1ff042592d17b3159dbd728863ed908d3ca915 (
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
24
25
26
27
28
29
30
31
|
module BinTreeTraversal
import StdEnv
import BinTree
testboom = Node 10
(Node 6
(Node 2 Leaf (Node 4 Leaf (Node 5 Leaf Leaf)))
(Node 7 Leaf Leaf)
)
(Node 14
(Node 12
(Node 11 Leaf Leaf)
(Node 13 Leaf Leaf)
)
(Node 17 Leaf Leaf)
)
lijstOplopend :: (Tree a) -> [a]
lijstOplopend ...
lijstAflopend :: (Tree a) -> [a]
lijstAflopend ...
lijstNaarBladen :: (Tree a) -> [a]
lijstNaarBladen ...
Start = (lijstOplopend testboom, '\n'
,lijstAflopend testboom, '\n'
,lijstNaarBladen testboom
)
|
