From 7aedef417bb6e0bf885c6af8cdfef44fe340d345 Mon Sep 17 00:00:00 2001
From: Oscar Najera <hi@oscarnajera.com>
Date: Tue, 13 Dec 2022 18:47:13 +0100
Subject: CL group in functions

---
 AoC2022/08/solver.lisp | 61 +++++++++++++++++++++++---------------------------
 1 file changed, 28 insertions(+), 33 deletions(-)

(limited to 'AoC2022/08')

diff --git a/AoC2022/08/solver.lisp b/AoC2022/08/solver.lisp
index e3b63e5..9031e19 100644
--- a/AoC2022/08/solver.lisp
+++ b/AoC2022/08/solver.lisp
@@ -1,11 +1,16 @@
 (ql:quickload '(fiveam uiop))
 
-(defun coord (width height)
+(defun coord-x-minor (width height)
   (lambda (x y)
     (when (and (< -1 x width)
                (< -1 y height))
       (+ x (* y width)))))
 
+(defun coord-y-minor (width height)
+  (let ((xminor (coord-x-minor width height)))
+    (lambda (y x)
+      (funcall xminor x y))))
+
 (let* ((data (uiop:read-file-lines "input"))
        (width (length (car data)))
        (height (length data))
@@ -14,37 +19,27 @@
                 (mapcan (lambda (row)
                           (map 'list (lambda (x) (- (char-code x) 48)) row)) data)))
        (visibility-mask (make-array (* width height) :initial-element nil))
-       (location (coord width height)))
-  (dotimes (y height)
-    ;; left watch
-    (loop
-      for x from 0 below width
-      for maxh = -1 then (max maxh tree-height)
-      for tree-height = (aref forest-arr (funcall location x y))
-      when (> tree-height maxh)
-        do (setf (aref visibility-mask (funcall location x y)) t))
-    ;; right watch
-    (loop
-      for x downfrom (1- width) to 0
-      for maxh = -1 then (max maxh tree-height)
-      for tree-height = (aref forest-arr (funcall location x y))
-      when (> tree-height maxh)
-        do (setf (aref visibility-mask (funcall location x y)) t)))
+       (location-x (coord-x-minor width height))
+       (location-y (coord-y-minor width height))
+       )
+  (flet ((toggle-visibility (major minor location reverse)
+           (dotimes (m major)
+             (let ((range (loop for i below minor collect i)))
+               (loop
+                 for n in (if reverse (nreverse range) range)
+                 for maxh = -1 then (max maxh tree-height)
+                 for tree-height = (aref forest-arr (funcall location n m))
+                 when (> tree-height maxh)
+                   do (setf (aref visibility-mask (funcall location n m)) t))))))
+    (toggle-visibility height width location-x nil)
+    (toggle-visibility height width location-x t)
+    (toggle-visibility width height location-y nil)
+    (toggle-visibility width height location-y t)
+    )
+
+
 
-  (dotimes (x width)
-    ;; top watch
-    (loop
-      for y from 0 below height
-      for maxh = -1 then (max maxh tree-height)
-      for tree-height = (aref forest-arr (funcall location x y))
-      when (> tree-height maxh)
-        do (setf (aref visibility-mask (funcall location x y)) t))
-    ;; bottom watch
-    (loop
-      for y downfrom (1- height) to 0
-      for maxh = -1 then (max maxh tree-height)
-      for tree-height = (aref forest-arr (funcall location x y))
-      when (> tree-height maxh)
-        do (setf (aref visibility-mask (funcall location x y)) t)))
 
-  (loop for v across visibility-mask counting v))
+  (loop for v across visibility-mask counting v)
+  ;; visibility-mask
+  )
-- 
cgit v1.2.3