diff options
| author | Edoardo La Greca | 2025-07-01 14:40:51 +0200 |
|---|---|---|
| committer | Edoardo La Greca | 2025-07-01 14:40:51 +0200 |
| commit | d412ebe1438c577fde9d09bfa76c650955bc9060 (patch) | |
| tree | 1096b2e8b07de40eb0ae99181f2134235c233adf /lec02/LogAnalysis.hs | |
| parent | e96648c57008b64ccd041c7a76e9587b9fcab62d (diff) | |
add third exercise of lecture 2
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 0c9e714..aeea7b5 100644 --- a/lec02/LogAnalysis.hs +++ b/lec02/LogAnalysis.hs @@ -44,3 +44,9 @@ insert m@(LogMessage _ newTime _) (Node tl (LogMessage _ time _) tr) | newTime < time = insert m tl | otherwise = insert m tr +-- Exercise 3 + +build :: [LogMessage] -> MessageTree +build [] = Leaf +build (m:ms) = insert m (build ms) + |