sorting by language

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 +))