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

format

Browse source
This commit is contained in:
Victor Martinez 2025-03-12 01:22:59 +01:00
parent 6e55a067dc
commit 14ba05fc6c
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Day1.hs
View file

@ -27,10 +27,8 @@ partOne :: String -> IO (Either Error Int)
partOne filepath = do partOne filepath = do
result <- try (readFile filepath) result <- try (readFile filepath)
case result of case result of
Left readError -> Left readError -> return $ Left (ReadFileError filepath readError)
return $ Left (ReadFileError filepath readError) Right contents -> return $ calculateScore <$> BF.first ParseInputError (parseInput contents)
Right contents ->
return $ calculateScore <$> BF.first ParseInputError (parseInput contents)
where where
-- To calculate the overall score we just need to -- To calculate the overall score we just need to
-- sort the lists and calculate the distances between each element -- sort the lists and calculate the distances between each element