diff options
| author | Camil Staps | 2015-03-28 11:28:39 +0100 |
|---|---|---|
| committer | Camil Staps | 2015-03-28 11:28:39 +0100 |
| commit | f16bd639aefed9bd1a340284f3bd48c47e0410ce (patch) | |
| tree | 56016066873aaca6e17209c1e3a7ab8eab65ee83 /week7/camil/BinTree.icl | |
| parent | h (diff) | |
8.3 camil
Diffstat (limited to 'week7/camil/BinTree.icl')
| -rw-r--r-- | week7/camil/BinTree.icl | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/week7/camil/BinTree.icl b/week7/camil/BinTree.icl new file mode 100644 index 0000000..601efcc --- /dev/null +++ b/week7/camil/BinTree.icl @@ -0,0 +1,38 @@ +implementation module BinTree
+
+import StdEnv
+
+:: Tree a = Node a (Tree a) (Tree a) | Leaf
+
+t0 :: Tree Int
+t0 = Leaf
+t1 :: Tree Int
+t1 = Node 4 t0 t0
+t2 :: Tree Int
+t2 = Node 2 t0 t1
+t3 :: Tree Int
+t3 = Node 5 t2 t0
+t4 :: Tree Int
+t4 = Node 5 t2 t2
+t5 :: Tree Int
+t5 = Node 1 Leaf (Node 2 Leaf (Node 3 Leaf (Node 4 Leaf Leaf)))
+t6 :: Tree Int
+t6 = Node 1 (Node 2 (Node 3 (Node 4 Leaf Leaf) Leaf) Leaf) Leaf
+t7 :: Tree Int
+t7 = Node 4 (Node 1 Leaf Leaf) (Node 5 (Node 2 Leaf Leaf) Leaf)
+
+// 2.
+//nodes :: // meest algemene type
+//nodes ...
+
+//Start = map nodes [t0,t1,t2,t3,t4,t5,t6,t7]
+
+//leaves :: // meest algemene type
+//leaves ...
+
+//Start = map leaves [t0,t1,t2,t3,t4,t5,t6,t7]
+
+//diepte :: // meest algemene type
+//diepte ...
+
+//Start = map diepte [t0,t1,t2,t3,t4,t5,t6,t7]
|