summaryrefslogtreecommitdiff
path: root/files/practicum/BinTreeTraversal.icl
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
        )