From 3a98b4ad3e29ce66eb7c423865c44e1fecf1c9ff Mon Sep 17 00:00:00 2001
From: Oscar Najera <hi@oscarnajera.com>
Date: Sat, 10 Dec 2022 19:23:14 +0100
Subject: [AoC2022] ELISP 10 with test

---
 AoC2022/10/solver.el | 67 ++++++++++++++++++++++++++++++++++++++--------------
 1 file changed, 49 insertions(+), 18 deletions(-)

(limited to 'AoC2022/10/solver.el')

diff --git a/AoC2022/10/solver.el b/AoC2022/10/solver.el
index 5a8b6f8..d87ca0b 100644
--- a/AoC2022/10/solver.el
+++ b/AoC2022/10/solver.el
@@ -15,7 +15,6 @@
 ;;
 ;;; Code:
 
-(require 'f)
 (require 'subr-x)
 (require 'cl-lib)
 (require 'ert)
@@ -24,26 +23,58 @@
   (when (memq cycle '(20 60 100 140 180 220))
     (* cycle register)))
 
-(let ((register 1)
-      (cycle 1)
-      measures)
-  (dolist (instruction (split-string (f-read "input") "\n"))
-    (cl-incf cycle)
-    (let ((step1 (solver-probe cycle register)) ;; the noop default
-          (step2                                ;; addx takes 2 cycles
-           (when (string-prefix-p "addx" instruction)
-             (cl-incf cycle)
-             (cl-incf register (string-to-number (cadr (split-string instruction))))
-             (solver-probe cycle register))))
-      (when-let ((probe (or step1 step2)))
-        (push probe measures))))
-  (list (reverse measures)
-        (apply #'+ measures)
-        cycle))
-
+(defsubst solver-draw-pixel (pixel register)
+  (when (= 0 pixel)
+    (insert "\n"))
+  (insert
+   (if (<= (1- register) pixel (1+ register))
+       "#" ".")))
 
+(defun solver-instructions (filename)
+  (with-temp-buffer
+    (insert-file-contents filename)
+    (split-string (buffer-string) "\n")))
 
+(defun solver (data-file)
+  (let ((register 1) (cycle 1) measures)
+    (with-temp-buffer
+      (dolist (instruction (solver-instructions data-file))
+        (solver-draw-pixel (mod (1- cycle) 40) register)
+        (cl-incf cycle)
+        (let ((step1 (solver-probe cycle register)) ;; the noop default
+              (step2                                ;; addx takes 2 cycles
+               (when (string-prefix-p "addx" instruction)
+                 (solver-draw-pixel (mod (1- cycle) 40) register)
+                 (cl-incf cycle)
+                 (cl-incf register (string-to-number (cadr (split-string instruction))))
+                 (solver-probe cycle register))))
+          (when-let ((probe (or step1 step2)))
+            (push probe measures))))
+      (list
+       (apply #'+ measures)
+       (buffer-string)))))
 
+(ert-deftest test-solver ()
+  (should
+   (equal (solver "eg-in")
+          (list 13140 "
+##..##..##..##..##..##..##..##..##..##..
+###...###...###...###...###...###...###.
+####....####....####....####....####....
+#####.....#####.....#####.....#####.....
+######......######......######......####
+#######.......#######.......#######.....
+.")))
+  (should
+   (equal (solver "input")
+          (list 12540 "
+####.####..##..####.####.#....#..#.####.
+#....#....#..#....#.#....#....#..#.#....
+###..###..#......#..###..#....####.###..
+#....#....#.....#...#....#....#..#.#....
+#....#....#..#.#....#....#....#..#.#....
+#....####..##..####.####.####.#..#.####.
+."))))
 
 (provide 'solver)
 ;;; solver.el ends here
-- 
cgit v1.2.3