Gattix/AoC
3
0
Fork 0
Code Issues 1 Pull Requests Releases Wiki Activity

day1

Browse Source
This commit is contained in:
Gattix 2022-12-01 15:53:16 +01:00
parent 56a5c212bb
commit 8e4decd15f
2 changed files with 2270 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
2022/day01/day01.hs Normal file
View File

@ -0,0 +1,14 @@
import Data.List.Split
import Data.List
main :: IO ()
main = do
input <- map (map read . lines) <$> splitOn "\n\n" <$> readFile "input"
print $ day1a input
print $ day1b input
day1a :: [[Int]] -> Int
day1a = maximum . map sum
day1b :: [[Int]] -> Int
day1b = sum . take 3 . reverse . sort . map sum

2256
2022/day01/input Normal file
View File

File diff suppressed because it is too large Load Diff