From 92bb2cb2ea5c3f75ce1fdefafdf44e9f3cece6d8 Mon Sep 17 00:00:00 2001 From: Hunky Jimpjorps Date: Thu, 1 Dec 2022 00:14:27 -0500 Subject: day 1 complet --- 2022/day-01/day-01.rkt | 18 ++++++++++++++++-- 1 file changed, 16 insertions(+), 2 deletions(-) (limited to '2022') diff --git a/2022/day-01/day-01.rkt b/2022/day-01/day-01.rkt index b29335d..2d01605 100644 --- a/2022/day-01/day-01.rkt +++ b/2022/day-01/day-01.rkt @@ -1,6 +1,20 @@ #lang racket (require advent-of-code - threading - seq) + 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 + _)) -- cgit v1.2.3