Add 2019 day 8 solutionsHEADmaster

1 files changed, 25 insertions, 0 deletions

diff --git a/2019/08/puzzle-1.el b/2019/08/puzzle-1.el
new file mode 100644
index 0000000..ad82334
--- /dev/null
+++ b/2019/08/puzzle-1.el
@@ -0,0 +1,25 @@
+;;; -*- lexical-binding: t; -*-
+
+(defun main (filename)
+  (with-temp-buffer
+    (insert-file-contents-literally filename)
+    (let* ((width 25)
+           (height 6)
+           (area (* width height))
+           (min-zeros most-positive-fixnum)
+           answer)
+      (while (not (eobp))
+        (let* ((end (+ (point) area))
+               (string (buffer-substring (point) end))
+               (zeros (seq-count (make-= ?0) string)))
+          (when (< zeros min-zeros)
+            (setq min-zeros zeros
+                  answer (* (seq-count (make-= ?1) string)
+                            (seq-count (make-= ?2) string))))
+          (goto-char end)))
+      answer)))
+
+(defun make-= (x)
+  (lambda (y) (= x y)))
+
+(message "%d" (main "input"))
\ No newline at end of file