blob: 2d016053c1270ff06546b51cafec2f0ff108554a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#lang racket
(require advent-of-code
threading)
(define calorie-data (fetch-aoc-input (find-session) 2022 1))
;; part 1
(~> calorie-data
(string-split "\n\n")
(map (λ~> string-split (map string->number _) (apply + _)) _)
(apply max _))
;; part 2
(~> calorie-data
(string-split "\n\n")
(map (λ~> string-split (map string->number _) (apply + _)) _)
(sort _ >)
(take 3)
(apply + _))
|
