diff options
| author | Edoardo La Greca | 2025-07-01 17:32:29 +0200 |
|---|---|---|
| committer | Edoardo La Greca | 2025-07-01 17:32:29 +0200 |
| commit | 917e867b0f34213057ea52e765fba6d7fa55410e (patch) | |
| tree | 5389df93d8297930b43119a1f15002a923f07a21 /lec02/LogAnalysis.hs | |
| parent | 70dd63fcd0d9e04eae9fafdc9dec7548c06c7e16 (diff) | |
fix third exercise
Diffstat (limited to 'lec02/LogAnalysis.hs')
| -rw-r--r-- | lec02/LogAnalysis.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lec02/LogAnalysis.hs b/lec02/LogAnalysis.hs index 6d79ca6..88d3945 100644 --- a/lec02/LogAnalysis.hs +++ b/lec02/LogAnalysis.hs @@ -40,9 +40,9 @@ insert :: LogMessage -> MessageTree -> MessageTree insert (Unknown _) t = t insert _ t@(Node _ (Unknown _) _) = t -- should never happen insert m Leaf = Node Leaf m Leaf -insert m@(LogMessage _ newTime _) (Node tl (LogMessage _ time _) tr) - | newTime < time = insert m tl - | otherwise = insert m tr +insert m1@(LogMessage _ newTime _) (Node tl m2@(LogMessage _ time _) tr) + | newTime < time = Node (insert m1 tl) m2 tr + | otherwise = Node tl m2 (insert m1 tr) -- Exercise 3 |