From d987405a938283e6ff3a2ff41f9ca35f3178a137 Mon Sep 17 00:00:00 2001 From: Jacopo De Simoi Date: Tue, 9 Dec 2025 09:44:53 -0500 Subject: [PATCH] [p9] Part 1 done --- p9/p9.org | 35 +++++++++++++++++++++++++++++++++++ 1 file changed, 35 insertions(+) create mode 100644 p9/p9.org diff --git a/p9/p9.org b/p9/p9.org new file mode 100644 index 0000000..67be3a0 --- /dev/null +++ b/p9/p9.org @@ -0,0 +1,35 @@ +#+title: Solution to p9 + +#+begin_src emacs-lisp :results none + (with-temp-buffer + (insert-file-contents "input") + (advent/replace-multiple-regex-buffer + '(("," . " ") + ("^" . "(") + ("$" . ")"))) + (goto-char (point-min)) + (insert "(setq data '(") + (goto-char (point-max)) + (insert "))") + (eval-buffer)) +#+end_src + +Find max area +#+begin_src emacs-lisp + (defun area (el) + (let ((a (car el)) + (b (cdr el))) + (abs (* (- (car a) (car b) -1) + (- (cadr a) (cadr b) -1))))) + + (defun symmetric-pairs (list) + (apply #'append (--map-indexed (-map (lambda (other) (cons it other)) + (-drop (1+ it-index) list)) + list))) + + (-max (-map 'area (symmetric-pairs data))) +#+end_src + +#+RESULTS: +: 4737096935 +