dax/advent-of-code-2022
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Cleanup day 1

Browse Source
This commit is contained in:
Jens Kadenbach
2022-12-01 16:06:38 +01:00
parent c104561d8b
commit 2f60058c6c
3 changed files with 11 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/Day1.hs
View File

@@ -30,10 +30,10 @@ day1_2 = do
findCaloriesOfTop3Elves :: T.Text -> CalorieCount
findCaloriesOfTop3Elves =
calories . sumCalories . take 3 . sortElves . elfToCalories
calories . sumCalories . take 3 . sortElves . parseElfInput
where
sumCalories :: [Elf] -> Int
sumCalories = sum . map caloriesOf
sumCalories = sum . map getCalories
findElfWithHighestCalorieCount :: T.Text -> Elf
findElfWithHighestCalorieCount = head .sortElves . elfToCalories
findElfWithHighestCalorieCount = head . sortElves . parseElfInput