aboutsummaryrefslogtreecommitdiff
path: root/sem7/pp/lec6.hs
diff options
context:
space:
mode:
Diffstat (limited to 'sem7/pp/lec6.hs')
-rw-r--r--sem7/pp/lec6.hs8
1 files changed, 0 insertions, 8 deletions
diff --git a/sem7/pp/lec6.hs b/sem7/pp/lec6.hs
index 4598d7a..31f666c 100644
--- a/sem7/pp/lec6.hs
+++ b/sem7/pp/lec6.hs
@@ -94,11 +94,3 @@ filterWithFold func = foldr (\new pre -> if func new
else pre
) []
-
--- Problems part of larger thing
-data LTreeMid = LLeaf Char | LNode LTreeMid LTreeMid
-data LTree = LTree LTreeMid Float
-
-treemerge :: LTree -> LTree -> LTree
-treemerge (LTree ta la) (LTree tb lb) = LTree (LNode ta tb) (la + lb)
-