From 3e1c65c7bcdb2c07e09bd9d2143c391e985a2157 Mon Sep 17 00:00:00 2001
From: Oscar Najera <hi@oscarnajera.com>
Date: Fri, 9 Dec 2022 01:57:13 +0100
Subject: Elisp refactor code

---
 AoC2022/08/solver.el | 88 +++++++++++++++++++++-------------------------------
 1 file changed, 36 insertions(+), 52 deletions(-)

(limited to 'AoC2022/08')

diff --git a/AoC2022/08/solver.el b/AoC2022/08/solver.el
index 22bbfd2..9c19651 100644
--- a/AoC2022/08/solver.el
+++ b/AoC2022/08/solver.el
@@ -6,10 +6,6 @@
 ;; Maintainer: Óscar Nájera <hi@oscarnajera.com>
 ;; Created: December 09, 2022
 ;; Modified: December 09, 2022
-;; Version: 0.0.1
-;; Keywords: abbrev bib c calendar comm convenience data docs emulations extensions faces files frames games hardware help hypermedia i18n internal languages lisp local maint mail matching mouse multimedia news outlines processes terminals tex tools unix vc wp
-;; Homepage: https://github.com/titan/solver
-;; Package-Requires: ((emacs "24.3"))
 ;;
 ;; This file is not part of GNU Emacs.
 ;;
@@ -20,60 +16,48 @@
 ;;; Code:
 
 (with-temp-buffer
-  (insert "30373
-25512
-65332
-33549
-35390")
-  (let* ((forest
-          (cl-map 'vector
-                  (lambda (row)
-                    (cl-map 'vector (lambda (col) (logxor col 48)) row)) ;; 48 is the ascii 0
-                  (split-string (buffer-string))))
-         (forest-width (length forest))
-         (forest-depth (length (aref forest 0)))
+  (insert-file-contents "input")
+  (let* ((rows (split-string (buffer-string)))
+         (forest-depth (length rows))
+         (forest-width (length (car rows)))
+         (forest
+          (seq-mapcat
+           (lambda (row)
+             (cl-map 'vector (lambda (col) (logxor col 48)) row)) ;; 48 is the ascii 0
+           rows 'vector))
          (visibility
-          (make-bool-vector (* forest-width forest-depth) nil)))
-    ;; left visible
-    (dotimes (i forest-width)
-      (let ((last-max -1))
-        (dotimes (j forest-depth)
-          (let* ((tree-height (aref (aref forest i) j))
-                 (mask-place (+ j (* forest-width i)))
-                 (mask-val (aref visibility mask-place)))
-            (setf (aref visibility mask-place) (or mask-val (< last-max tree-height)))
-            (setq last-max (max last-max tree-height))))))
-    ;; rigth visible
-    (dotimes (i forest-width)
-      (let ((last-max -1))
+          (make-bool-vector (* forest-width forest-depth) nil))
+         (last-max -1))
+    (cl-flet ((update-visibility (index)
+                                 (let ((tree-height (aref forest index))
+                                       (mask-val (aref visibility index)))
+                                   (setf (aref visibility index) (or mask-val (< last-max tree-height)))
+                                   (setq last-max (max last-max tree-height)))))
+
+
+      ;; left visible
+      (dotimes (i forest-width)
+        (setq last-max -1)
         (dotimes (j forest-depth)
-          (let* ((tree-height (aref (aref forest i) (- forest-depth j 1)))
-                 (mask-place (+ (- forest-width j 1) (* forest-width i)))
-                 (mask-val (aref visibility mask-place)))
-            (setf (aref visibility mask-place) (or mask-val (< last-max tree-height)))
-            (setq last-max (max last-max tree-height))))))
-    ;; top visible
-    (dotimes (j forest-depth)
-      (let ((last-max -1))
-        (dotimes (i forest-width)
-          (let* ((tree-height (aref (aref forest i) j))
-                 (mask-place (+ j (* forest-width i)))
-                 (mask-val (aref visibility mask-place)))
-            (setf (aref visibility mask-place) (or mask-val (< last-max tree-height)))
-            (setq last-max (max last-max tree-height))))))
-    ;; bottom visible
-    (dotimes (j forest-depth)
-      (let ((last-max -1))
+          (update-visibility (+ j (* forest-width i)))))
+      ;; top visible
+      (dotimes (j forest-depth)
+        (setq last-max -1)
         (dotimes (i forest-width)
-          (let* ((tree-height (aref (aref forest (- forest-depth i 1)) j))
-                 (mask-place (+ j (* forest-width (- forest-depth i 1))))
-                 (mask-val (aref visibility mask-place)))
-            (setf (aref visibility mask-place) (or mask-val (< last-max tree-height)))
-            (setq last-max (max last-max tree-height))))))
+          (update-visibility (+ j (* forest-width i)))))
+      ;; rigth visible
+      (dotimes (i forest-width)
+        (setq last-max -1)
+        (cl-loop for j downfrom (1- forest-depth) to 0 do
+                 (update-visibility (+ j (* forest-width i)))))
+      ;; bottom visible
+      (dotimes (j forest-depth)
+        (setq last-max -1)
+        (cl-loop for i downfrom (1- forest-width) to 0 do
+          (update-visibility (+ j (* forest-width i))))))
 
     (seq-partition
      (cl-map 'vector #'identity
              visibility) 5)
     (cl-loop for v across visibility when v count it)
-    (apply #'vconcat forest)
     ))
-- 
cgit v1.2.3