blob: 88d39453895784b47525c872d1ee75576b14e9ca (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
{-# OPTIONS_GHC -Wall #-}
module LogAnalysis where
import Log
-- Exercise 1
nthWord :: Int -> String -> String
nthWord n = (!! n) . words
firstWord :: String -> String
firstWord = nthWord 0
nthWordInt :: Int -> String -> Int
nthWordInt n = read . nthWord n
timeStamp :: String -> Int
timeStamp s
| firstWord s == "E" = nthWordInt 2 s
| otherwise = nthWordInt 1 s
restOfMessage :: String -> String
restOfMessage s
| firstWord s == "E" = (unwords . drop 3 . words) s
| otherwise = (unwords . drop 2 . words) s
parseMessage :: String -> LogMessage
parseMessage s
| firstWord s == "I" = LogMessage Info (timeStamp s) (restOfMessage s)
| firstWord s == "W" = LogMessage Warning (timeStamp s) (restOfMessage s)
| firstWord s == "E" = LogMessage (Error (nthWordInt 1 s)) (timeStamp s) (restOfMessage s)
| otherwise = Unknown s
parse :: String -> [LogMessage]
parse = map parseMessage . lines
-- Exercise 2
insert :: LogMessage -> MessageTree -> MessageTree
insert (Unknown _) t = t
insert _ t@(Node _ (Unknown _) _) = t -- should never happen
insert m Leaf = Node Leaf m Leaf
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
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
-- Exercise 5
logText :: LogMessage -> String
logText (Unknown _) = ""
logText (LogMessage _ _ text) = text
isRelevant :: LogMessage -> Bool
isRelevant (Unknown _) = False
isRelevant (LogMessage (Error s) _ _)
| s >= 50 = True
| otherwise = False
isRelevant (LogMessage _ _ _) = False
whatWentWrong :: [LogMessage] -> [String]
whatWentWrong [] = []
whatWentWrong ((Unknown _):ms) = whatWentWrong ms
whatWentWrong ms = map logText (filter isRelevant ((inOrder . build) ms))
|