jasterv/aoc2024-haskell
1
0
Fork 0
mirror of https://codeberg.org/JasterV/aoc2024-haskell.git synced 2026-04-27 02:15:43 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Update Day1.hs

Browse source
This commit is contained in:
Víctor Martínez 2025-03-11 21:04:24 +01:00 • committed by GitHub
commit 0721ec8c1f
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Day1.hs
View file

@ -22,7 +22,7 @@ partOne filepath = do
return score return score
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 of each element -- sort the lists and calculate the distances between each element
calculateScore (left, right) = calculateScore (left, right) =
sum $ zipWith distance (sort left) (sort right) sum $ zipWith distance (sort left) (sort right)
distance a b = abs (a - b) distance a b = abs (a - b)