Format files

src/Day1.hs

@@ -4,7 +4,9 @@ import qualified Data.IntSet as DIS
 import Data.Maybe (mapMaybe)
 
 type Target = Int
+
 type Expenses = [Int]
+
 type Expenses' = DIS.IntSet
 
 day1 :: IO ()
@@ -26,8 +28,8 @@ fixExpenseReport t c es
 fixExpenseReport' :: Target -> Int -> Expenses' -> Maybe Int
 fixExpenseReport' t 1 es = if DIS.member t es then Just t else Nothing
 fixExpenseReport' t c es =
-    let foo x = (*x) <$> fixExpenseReport' (t-x) (c-1) (DIS.delete x es)
+  let foo x = (* x) <$> fixExpenseReport' (t - x) (c -1) (DIS.delete x es)
-        bar = mapMaybe foo (DIS.toList es) in
+      bar = mapMaybe foo (DIS.toList es)
-    case bar of
+   in case bar of
         [] -> Nothing
-        (x:_) -> Just x
+        (x : _) -> Just x

src/Day2.hs

@@ -2,18 +2,22 @@
 
 module Day2 (day2) where
 
-import qualified Data.Text as T
 import qualified Data.Attoparsec.Text as P
 import Data.List (elemIndices)
+import qualified Data.Text as T
 
 type Max = Int
+
 type Min = Int
+
 type Letter = Char
+
 type Validator = Policy -> String -> Bool
 
-data Policy = Policy { lBound :: Min
+data Policy = Policy
-                     , uBound :: Max
+  { lBound :: Min,
-                     , letter :: Letter
+    uBound :: Max,
+    letter :: Letter
   }
 
 parserPolicy :: P.Parser Policy
@@ -28,8 +32,8 @@ parserPolicy = do
 
 validatePolicy :: Validator
 validatePolicy p s =
-    let l = length $ filter (== letter p) s in
+  let l = length $ filter (== letter p) s
-    l >= lBound p && l <= uBound p
+   in l >= lBound p && l <= uBound p
 
 validateLine :: Validator -> String -> Bool
 validateLine v s =
@@ -46,14 +50,13 @@ validateCorrectPolicy :: Validator
 validateCorrectPolicy p s =
   let index1 = lBound p - 1
       index2 = uBound p - 1
-        indices = elemIndices (letter p) s in
+      indices = elemIndices (letter p) s
-        xor (index1 `elem` indices) (index2 `elem` indices)
+   in xor (index1 `elem` indices) (index2 `elem` indices)
-
 
 day2 :: IO ()
 day2 = do
   rs <- lines <$> readFile "./input/day2"
   putStr "[Day 2-1] # valid passwords: "
-  print . length . filter (==True) . fmap (validateLine validatePolicy) $ rs
+  print . length . filter (== True) . fmap (validateLine validatePolicy) $ rs
   putStr "[Day 2-2] # valid passwords: "
-  print . length . filter (==True) . fmap (validateLine validateCorrectPolicy) $ rs
+  print . length . filter (== True) . fmap (validateLine validateCorrectPolicy) $ rs