diff options
| author | Julian T <julian@jtle.dk> | 2021-11-25 08:47:19 +0100 |
|---|---|---|
| committer | Julian T <julian@jtle.dk> | 2021-11-25 08:47:19 +0100 |
| commit | 890ad2bcee172ab2a4cbb319145f5b42ba38619a (patch) | |
| tree | c7cc445410379cb5ee4b37b18f2d45a56e680b28 /sem7/pp/lec6.hs | |
| parent | 7f57150038a90f634dd27b25bd9bba05c461c22a (diff) | |
Add notes and assignment solution
Diffstat (limited to 'sem7/pp/lec6.hs')
| -rw-r--r-- | sem7/pp/lec6.hs | 8 |
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) - |