From 400b581731c25975660b86c57f89463b63c59d38 Mon Sep 17 00:00:00 2001
From: Oscar Najera <hi@oscarnajera.com>
Date: Fri, 2 Dec 2022 13:48:50 +0100
Subject: [AoC2022] 01-02
---
AoC2022/01/solver.el | 13 +++++++++++++
1 file changed, 13 insertions(+)
(limited to 'AoC2022/01')
diff --git a/AoC2022/01/solver.el b/AoC2022/01/solver.el
index da7682d..67c1980 100644
--- a/AoC2022/01/solver.el
+++ b/AoC2022/01/solver.el
@@ -31,5 +31,18 @@
(split-string elf) 0))
(split-string (buffer-string) "\n\n"))))
+;; calculate the maximum from each elves rations
+(with-temp-buffer
+ (insert-file-contents "input")
+ (apply #'+
+ (thread-first
+ (mapcar
+ (lambda (elf)
+ (seq-reduce (lambda (acc x)
+ (+ acc (string-to-number x)))
+ (split-string elf) 0))
+ (split-string (buffer-string) "\n\n"))
+ (sort #'>)
+ (seq-take 3))))
(provide 'solver)
;;; solver.el ends here
--
cgit v1.2.3