wgaffa/adventofcode2022 - Change KGRUAH54RWBRZY4S7N2T4HOTGTQ3332JH74GNZAEWXZP5LP3Z3QAC

day #1

Created by wgaffa on December 18, 2022

KGRUAH54RWBRZY4S7N2T4HOTGTQ3332JH74GNZAEWXZP5LP3Z3QAC

Dependencies

In channels

main

Change contents

File addition: day1.txt (----------)

[2.18]

File addition: day1-sample.txt (----------)
[2.18]
```
1000
2000
3000
4000
5000
6000
7000
8000
9000
10000
```

File addition: Day1.hs (----------)

[3.1]

module Main where
import Data.List (sort)
import Aoc
type Calorie = Int
type Elf = [Calorie]
type Expedition = [Elf]
main :: IO ()
main = do
  content <- input 1
  let run = Aoc.run content
  run 69206 (part1 . lines)
  run 197400 (part2 . lines)
  
parse :: [String] -> Expedition
parse [] = []
parse xs = case break null . dropWhile null $ xs of
  ([], _) -> []
  (xs, rest) -> map read xs : parse rest where
part1 :: [String] -> Int
part1 = maximum . map sum . parse
part2 :: [String] -> Int
part2 = sum . take 3 . reverse . sort . map sum . parse

day #1

Dependencies

In channels

Change contents

File addition: day1.txt (----------)

File addition: day1-sample.txt (----------)

File addition: Day1.hs (----------)