add aoc 2022

1 files changed, 17 insertions, 0 deletions

diff --git a/advent-of-code/2022/01/2.rkt b/advent-of-code/2022/01/2.rkt
new file mode 100644
index 0000000..40b4f23
--- /dev/null
+++ b/advent-of-code/2022/01/2.rkt
@@ -0,0 +1,17 @@
+#lang racket/base
+
+(require "../../lib/utils.rkt")
+
+(define lines
+  (call-with-input-file "input"
+    (lambda (fp)
+      (get-lines fp))))
+
+(define elves (split-list-by "" lines))
+
+(define (elf-sum elf)
+  (apply + (map string->number elf)))
+
+(define elf-sums (sort (map elf-sum elves) >))
+
+(+ (car elf-sums) (cadr elf-sums) (caddr elf-sums))
\ No newline at end of file