blob: 52150149299c0b333094098e8edaf1aec7211bdc (
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 +))
|
