jasterv/aoc2024-haskell
1
0
Fork 0
mirror of https://codeberg.org/JasterV/aoc2024-haskell.git synced 2026-04-26 18:10:05 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

refactor day 2

Browse source
This commit is contained in:
Victor Martinez 2025-03-12 15:59:45 +01:00
parent fc76286ccd
commit 5bd3f594c4
1 changed files with 6 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
src/Day2.hs
View file

@ -16,7 +16,6 @@ partOne contents = length . filter isSafeReport <$> parseInput contents
partTwo :: String -> Either Error Int partTwo :: String -> Either Error Int
partTwo contents = length . filter isSafeReportWithTolerance <$> parseInput contents partTwo contents = length . filter isSafeReportWithTolerance <$> parseInput contents
where where
isSafeReportWithTolerance :: Report -> Bool
isSafeReportWithTolerance xs = isSafeReport xs || aux [] xs isSafeReportWithTolerance xs = isSafeReport xs || aux [] xs
where where
aux left [] = isSafeReport left aux left [] = isSafeReport left
@ -24,17 +23,12 @@ partTwo contents = length . filter isSafeReportWithTolerance <$> parseInput cont
isSafeReport :: Report -> Bool isSafeReport :: Report -> Bool
isSafeReport xs = isSafeReportWith isSafeIncrease xs || isSafeReportWith isSafeDecrease xs isSafeReport xs = isSafeReportWith isSafeIncrease xs || isSafeReportWith isSafeDecrease xs
where
isSafeReportWith :: (Level -> Level -> Bool) -> Report -> Bool isSafeReportWith validator (x : y : xs') = validator x y && isSafeReportWith validator (y : xs')
isSafeReportWith validator (x : y : xs) = validator x y && isSafeReportWith validator (y : xs) isSafeReportWith _ [_] = True
isSafeReportWith _ [_] = True isSafeReportWith _ [] = False
isSafeReportWith _ [] = False isSafeIncrease x y = (x - y) > 0 && (x - y) < 4
isSafeDecrease x y = isSafeIncrease y x
isSafeIncrease :: Level -> Level -> Bool
isSafeIncrease x y = (x - y) > 0 && (x - y) < 4
isSafeDecrease :: Level -> Level -> Bool
isSafeDecrease x y = isSafeIncrease y x
parseInput :: String -> Either Error [Report] parseInput :: String -> Either Error [Report]
parseInput contents = mapM parseReport (lines contents) parseInput contents = mapM parseReport (lines contents)