X-Git-Url: http://git.jkinsey.net/?p=adventofcode2019.git;a=blobdiff_plain;f=src%2Fadventofcode2019%2Fday13.clj;fp=src%2Fadventofcode2019%2Fday13.clj;h=759b3b3ad35e11387221529673f5cb3b4ae7a15c;hp=0000000000000000000000000000000000000000;hb=15f6c3bbb172e88ff9a6d393057abc40db9373bf;hpb=2441c6e83817ce81f250f943ea252f866957bee8

diff --git a/src/adventofcode2019/day13.clj b/src/adventofcode2019/day13.clj
new file mode 100644
index 0000000..759b3b3
--- /dev/null
+++ b/src/adventofcode2019/day13.clj
@@ -0,0 +1,14 @@
+(ns adventofcode2019.day13
+    [:require [adventofcode2019.lib :refer :all]
+              [adventofcode2019.intcode :as i]
+              [clojure.string :as str]
+              [clojure.core.match :refer [match]]
+              [clojure.math.combinatorics :as combo]])
+
+(defn day13 []
+  (let [input (i/get-program (input-file))
+        output (:output (i/intcode (i/build-state input)))
+        draw-tiles (fn [screen [x y t]] (assoc screen [x y] t)) 
+        screen (reduce draw-tiles {} (partition 3 output))] 
+    (part1 (count (filter #(= % 4) (vals screen))))
+    #_(part2)))