Add 2019 day 8 solutionsHEADmaster

1 files changed, 27 insertions, 0 deletions

diff --git a/2019/08/puzzle-2.el b/2019/08/puzzle-2.el
new file mode 100644
index 0000000..61eed93
--- /dev/null
+++ b/2019/08/puzzle-2.el
@@ -0,0 +1,27 @@
+;;; -*- lexical-binding: t; -*-
+
+(defun main (filename)
+  (let* ((string (with-temp-buffer
+                   (insert-file-contents-literally filename)
+                   (buffer-substring-no-properties (point-min) (point-max))))
+         (width 25)
+         (height 6)
+         (area (* width height))
+         (image (thread-last
+                  (seq-partition string area)
+                  (apply #'seq-mapn #'first-visible-pixel)
+                  (apply #'string))))
+    (switch-to-buffer "*Advent of Code — 2019 Day 8*")
+    (save-excursion
+      (insert image))
+    (while (not (eobp))
+      (goto-char (+ (point) width))
+      (insert ?\n))))
+
+(defun first-visible-pixel (&rest pixels)
+  (pcase (seq-find (lambda (x) (/= x ?2)) pixels ?2)
+    (?0 ?.)
+    (?1 ?#)
+    (?2 32)))
+
+(main "input")
\ No newline at end of file