[p3] Part 1 (first attempt)

Looking at part 2, we would need to go down with some recursion

p3/p3.org

@@ -0,0 +1,31 @@
+#+title: Solution to p3
+
+First load the data as a list of lists of numbers
+#+begin_src emacs-lisp :results none
+  (with-temp-buffer
+    (insert-file-contents "input")
+    (advent/replace-multiple-regex-buffer
+     '(("\\(.\\)" . "\\1 ")
+       ("^" . "(")
+       ("$" . ")")))
+    (goto-char (point-min))
+    (insert "(setq data '(")
+    (goto-char (point-max))
+    (insert "))")
+    (eval-buffer))
+#+end_src
+
+This is for part 1:
+#+begin_src emacs-lisp
+  (defun joltage (bank)
+    (let* ((max-joltage (-max bank))
+           (max-pos (1+ (-elem-index max-joltage bank))))
+      (if (< max-pos (length bank))
+          (+ (* 10 max-joltage) (-max (-drop max-pos bank)))
+        (+ (* 10 (-max (-drop-last 1 bank))) max-joltage))))
+
+  (-sum (-map #'joltage data))
+#+end_src
+
+#+RESULTS:
+: 17405