diff options
Diffstat (limited to 'lec02/LogAnalysis.hs')
| -rw-r--r-- | lec02/LogAnalysis.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lec02/LogAnalysis.hs b/lec02/LogAnalysis.hs index aeea7b5..f71410a 100644 --- a/lec02/LogAnalysis.hs +++ b/lec02/LogAnalysis.hs @@ -50,3 +50,9 @@ build :: [LogMessage] -> MessageTree build [] = Leaf build (m:ms) = insert m (build ms) +-- Exercise 4 + +inOrder :: MessageTree -> [LogMessage] +inOrder Leaf = [] +inOrder (Node tl m tr) = inOrder tl ++ [m] ++ inOrder tr + |