aboutsummaryrefslogtreecommitdiff
path: root/racket/aoc2022/day-01/day-01.rkt
diff options
context:
space:
mode:
Diffstat (limited to 'racket/aoc2022/day-01/day-01.rkt')
-rw-r--r--racket/aoc2022/day-01/day-01.rkt20
1 files changed, 20 insertions, 0 deletions
diff --git a/racket/aoc2022/day-01/day-01.rkt b/racket/aoc2022/day-01/day-01.rkt
new file mode 100644
index 0000000..5215014
--- /dev/null
+++ b/racket/aoc2022/day-01/day-01.rkt
@@ -0,0 +1,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 +))