From e59ec616694ee9ce40d7e5f882311f43c6e456a9 Mon Sep 17 00:00:00 2001
From: Edoardo La Greca
Date: Tue, 1 Jul 2025 14:46:44 +0200
Subject: add fourth 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 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
+
-- 
cgit v1.2.3