From: Jack Kinsey <j.jameskinsey@gmail.com>
Date: Sun, 8 Dec 2019 18:40:08 +0000 (-0500)
Subject: Add correct day8pt1, day8pt2
X-Git-Url: http://git.jkinsey.net/?a=commitdiff_plain;h=73515441a32e65c1c2eb79537db2a2a508a7673f;p=adventofcode2019.git

Add correct day8pt1, day8pt2
---

diff --git a/src/adventofcode2019/core.clj b/src/adventofcode2019/core.clj
index f4cc833..395bf5d 100644
--- a/src/adventofcode2019/core.clj
+++ b/src/adventofcode2019/core.clj
@@ -1,7 +1,7 @@
 (ns adventofcode2019.core
     [:require (adventofcode2019 day01 day02 day03
                                 day04 day05 day06
-                                day07)])
+                                day07 day08)])
 
 (defn -main 
   ([]
diff --git a/src/adventofcode2019/day08.clj b/src/adventofcode2019/day08.clj
new file mode 100644
index 0000000..a3aa45e
--- /dev/null
+++ b/src/adventofcode2019/day08.clj
@@ -0,0 +1,25 @@
+(ns adventofcode2019.day08
+    [:require [adventofcode2019.lib :refer :all]
+              [clojure.core.match :refer [match]]])
+
+(def combine-layers 
+  "Binary operation on the pixels of two layers, the first above the second."
+  #(match [%1 %2]
+          [0 _] 0
+          [1 _] 1
+          [2 p] p))
+
+(defn day08 []
+  (let [input (mapv parse-int (get-list-from-file (input-file) #""))
+        layer-size (* 25 6)
+        count-num #(count (filter (hash-set %1) %2))
+        layers (partition layer-size input)
+        fewest-zeroes (apply (partial min-key (partial count-num 0)) 
+                             layers)
+        layered-image (reduce #(mapv combine-layers %1 %2) layers)
+        to-ascii #(match % 0 \u0020 ; 0s are spaces, 1s are full-block
+                           1 \u2588)] 
+    (part1 (* (count-num 1 fewest-zeroes)
+              (count-num 2 fewest-zeroes)))
+    (part2 "see below")
+    (run! println (partition 25 (map to-ascii layered-image)))))
diff --git a/src/adventofcode2019/template.clj b/src/adventofcode2019/template.clj
index 9e8d2b5..c239cb5 100644
--- a/src/adventofcode2019/template.clj
+++ b/src/adventofcode2019/template.clj
@@ -6,4 +6,5 @@
 
 (defn day00 []
   (let [input (map parse-int (get-list-from-file (input-file)))] 
-    (comment Your code here!)))
+    #_(part1)
+    #_(part2)))