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: Day1 to use mapM

Browse source
This commit is contained in:
Victor Martinez 2025-03-12 10:34:21 +01:00
parent 566a92499a
commit 3035985d6b
1 changed files with 5 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
src/Day1.hs
View file

@ -4,6 +4,7 @@ module Day1
)
where
import Control.Monad (mapAndUnzipM)
import qualified Data.Bifunctor as BF
import Data.Either
import Data.List (sort)
@ -41,14 +42,7 @@ partTwo contents = calculateScore <$> BF.first ParseInputError (parseInput conte
count x = length . filter (== x)
parseInput :: String -> Either ParseError ([LocationID], [LocationID])
parseInput xs =
case errors of
[] -> Right parsedInput
(parseError : _) -> Left parseError
where
parse = map (parseWords . words) . lines
errors = lefts $ parse xs
parsedInput = unzip $ rights $ parse xs
parseInput xs = mapAndUnzipM (parseWords . words) (lines xs)
parseWords :: [String] -> Either ParseError (LocationID, LocationID)
parseWords [left, right] = do
@ -56,16 +50,9 @@ parseWords [left, right] = do
rightLocation <- parseRight
return (leftLocation, rightLocation)
where
parseLeft =
BF.first
(ParseLocationError left)
(readEither left :: Either String LocationID)
parseRight =
BF.first
(ParseLocationError right)
(readEither right :: Either String LocationID)
parseLeft = BF.first (ParseLocationError left) (readEither left :: Either String LocationID)
parseRight = BF.first (ParseLocationError right) (readEither right :: Either String LocationID)
-- If the line does not contain exactly two words,
-- it is considered an error
parseWords xs' = Left $ ParseLineError (unwords xs')
parseWords xs = Left $ ParseLineError (unwords xs)