hoi

[fp1415.git] / fp2 / week6 / mart / BinTree.icl

diff --git a/fp2/week6/mart/BinTree.icl b/fp2/week6/mart/BinTree.icl
new file mode 100755 (executable)
index 0000000..7b14e1e
--- /dev/null
+++ b/fp2/week6/mart/BinTree.icl
@@ -0,0 +1,38 @@
+implementation module BinTree\r
+\r
+import StdEnv\r
+\r
+::  BTree a = BNode a (BTree a) (BTree a) | BLeaf\r
+\r
+t0 :: BTree Int\r
+t0 = BLeaf\r
+t1 :: BTree Int\r
+t1 = BNode 4 t0 t0\r
+t2 :: BTree Int\r
+t2 = BNode 2 t0 t1\r
+t3 :: BTree Int\r
+t3 = BNode 5 t2 t0\r
+t4 :: BTree Int\r
+t4 = BNode 5 t2 t2\r
+t5 :: BTree Int\r
+t5 = BNode 1 BLeaf (BNode 2 BLeaf (BNode 3 BLeaf (BNode 4 BLeaf BLeaf)))\r
+t6 :: BTree Int\r
+t6 = BNode 1 (BNode 2 (BNode 3 (BNode 4 BLeaf BLeaf) BLeaf) BLeaf) BLeaf\r
+t7 :: BTree Int\r
+t7 = BNode 4 (BNode 1 BLeaf BLeaf) (BNode 5 (BNode 2 BLeaf BLeaf) BLeaf)\r
+\r
+//  2.\r
+//nodes :: // meest algemene type\r
+//nodes ...\r
+\r
+//Start = map nodes [t0,t1,t2,t3,t4,t5,t6,t7]\r
+\r
+//leaves :: // meest algemene type\r
+//leaves ...\r
+\r
+//Start = map leaves [t0,t1,t2,t3,t4,t5,t6,t7]\r
+\r
+//diepte :: // meest algemene type\r
+//diepte ...\r
+\r
+//Start = map diepte [t0,t1,t2,t3,t4,t5,t6,t7]\r