Advent of Code 2024 Day 1 and 2

src/advent_of_code/2024/1.hs

@@ -1,7 +1,7 @@
 -- https://adventofcode.com/2024/day/1
 
-import           Data.List
+import           Data.List (elemIndices, sort)
-import           GHC.IO
+import           GHC.IO    (unsafePerformIO)
 
 input :: FilePath
 input = "src/advent_of_code/2024/1.input"

src/advent_of_code/2024/2.hs

@@ -0,0 +1,56 @@
+-- https://adventofcode.com/2024/day/2
+
+{-# LANGUAGE OverloadedStrings #-}
+
+import           Data.List    hiding (lines)
+import           Data.Text    (Text, lines, pack, splitOn, unpack)
+import           Data.Text.IO (readFile)
+import           GHC.IO       (unsafePerformIO)
+import           Prelude      hiding (lines, readFile)
+
+entries :: [[Int]]
+entries = parse . unsafePerformIO $ lines <$> readFile "src/advent_of_code/2024/2.input"
+
+entries' :: [[Int]]
+entries' =  parse . unsafePerformIO $ lines <$> readFile "src/advent_of_code/2024/2f.input"
+
+parse :: [Text] -> [[Int]]
+parse = map (map (read . unpack) . splitOn " ")
+
+main :: IO ()
+main = do
+  entries <- parse . lines <$> readFile "src/advent_of_code/2024/2.input"
+  print "Advent of Code 2024 - Day 2"
+
+  print $ "Part 1: " <> show (solveP1 entries)
+  print $ "Part 2: " <> show (solveP2 entries)
+
+solveP1 :: [[Int]] -> Int
+solveP1 = length . filter (== True) . map safeReport
+
+safeReport :: [Int] -> Bool
+safeReport report = isSorted && adjacentLevelCheck
+  where
+    isSorted = sortedReportASC == report || sortedReportDESC == report
+    sortedReportASC = sort report
+    sortedReportDESC = reverse sortedReportASC
+
+    adjacentLevelCheck =
+      all (((== True) . (\n-> n>=1 && n<=3)) . abs)
+          (zipWith subtract report (tail report))
+
+
+solveP2 :: [[Int]] -> Int
+solveP2 = length . filter (== True) . map safeReport'
+
+safeReport' :: [Int] -> Bool
+safeReport' report =
+  or $ zipWith (&&) (map adjacentLevelCheck reports) (map isSorted reports)
+  where
+    isSorted report = report `elem` [sort report, reverse (sort report)]
+
+    adjacentLevelCheck report =
+      all (((== True) . (\n-> n>=1 && n<=3)) . abs)
+          (zipWith subtract report (tail report))
+
+    reports = map tail $ permutations report

src/advent_of_code/2024/2f.input

@@ -0,0 +1,6 @@
+7 6 4 2 1
+1 2 7 8 9
+9 7 6 2 1
+1 3 2 4 5
+8 6 4 4 1
+1 3 6 7 9