From d412ebe1438c577fde9d09bfa76c650955bc9060 Mon Sep 17 00:00:00 2001
From: Edoardo La Greca
Date: Tue, 1 Jul 2025 14:40:51 +0200
Subject: add third exercise of lecture 2

---
 lec02/LogAnalysis.hs | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'lec02/LogAnalysis.hs')

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)
+
-- 
cgit v1.2.3