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 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) + |