summaryrefslogtreecommitdiff
path: root/fp2/week6/camil/BinTree.icl
diff options
context:
space:
mode:
Diffstat (limited to 'fp2/week6/camil/BinTree.icl')
-rw-r--r--fp2/week6/camil/BinTree.icl38
1 files changed, 0 insertions, 38 deletions
diff --git a/fp2/week6/camil/BinTree.icl b/fp2/week6/camil/BinTree.icl
deleted file mode 100644
index 0a16da5..0000000
--- a/fp2/week6/camil/BinTree.icl
+++ /dev/null
@@ -1,38 +0,0 @@
-implementation module BinTree
-
-import StdEnv
-
-:: BTree a = BNode a (BTree a) (BTree a) | BLeaf
-
-t0 :: BTree Int
-t0 = BLeaf
-t1 :: BTree Int
-t1 = BNode 4 t0 t0
-t2 :: BTree Int
-t2 = BNode 2 t0 t1
-t3 :: BTree Int
-t3 = BNode 5 t2 t0
-t4 :: BTree Int
-t4 = BNode 5 t2 t2
-t5 :: BTree Int
-t5 = BNode 1 BLeaf (BNode 2 BLeaf (BNode 3 BLeaf (BNode 4 BLeaf BLeaf)))
-t6 :: BTree Int
-t6 = BNode 1 (BNode 2 (BNode 3 (BNode 4 BLeaf BLeaf) BLeaf) BLeaf) BLeaf
-t7 :: BTree Int
-t7 = BNode 4 (BNode 1 BLeaf BLeaf) (BNode 5 (BNode 2 BLeaf BLeaf) BLeaf)
-
-// 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]