simplify day02

1 files changed, 12 insertions, 15 deletions

diff --git a/execs/Day02.hs b/execs/Day02.hs
index c462ec9..412d1d1 100644
--- a/execs/Day02.hs
+++ b/execs/Day02.hs
@@ -4,27 +4,24 @@ import Text.ParserCombinators.Parsec
 import Text.Parsec.Char
 import Utils
 
-data PassProp = PassProp
-    { range :: (Int, Int)
-    , c :: Char
-    , pass :: String
-    } deriving (Show)
+type PassProp = (Int, Int, Char, String)
 
+parseInt :: Parser Int
+parseInt = read <$> many1 digit
 parseProp :: Parser PassProp
-parseProp = do
-    lower <- many1 digit
-    upper <- char '-' >> many1 digit
-    c <- space >> letter
-    password <- string ": " >> many letter
-    return $ PassProp (read lower, read upper) c password
+parseProp = (,,,) 
+            <$> parseInt <* char '-' 
+            <*> parseInt <* space 
+            <*> letter <* string ": " 
+            <*> many letter
 
 doCheck1 :: PassProp -> Bool
-doCheck1 PassProp { range = (lower, upper), c = c, pass = pass} =
+doCheck1 (lower, upper, c, pass) =
     count >= lower && count <= upper
         where count = countElem c pass
 
 doCheck2 :: PassProp -> Bool
-doCheck2 PassProp { range = (lower, upper), c = c, pass = pass} =
+doCheck2 (lower, upper, c, pass) =
     (pass !! (lower - 1) == c) `xor` (pass !! (upper - 1) == c)
 
 parseLine :: Parser a -> String -> a
@@ -33,5 +30,5 @@ parseLine parser line = right $ parse parser "input" line
 main :: IO ()
 main = do
     n <- map (parseLine parseProp) . lines <$> readFile "input/02"
-    print $ countElem True (map doCheck1 n)
-    print $ countElem True (map doCheck2 n)
+    print $ howMany doCheck1 n
+    print $ howMany doCheck2 n