diff options
| author | Edoardo La Greca | 2025-07-01 14:46:44 +0200 |
|---|---|---|
| committer | Edoardo La Greca | 2025-07-01 14:46:56 +0200 |
| commit | e59ec616694ee9ce40d7e5f882311f43c6e456a9 (patch) | |
| tree | 46af811d7280a8384ce258cfe90156e27f4c5950 | |
| parent | d412ebe1438c577fde9d09bfa76c650955bc9060 (diff) | |
add fourth exercise of lecture 2
| -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 + |