Add untested day13pt1

[adventofcode2019.git] / src / adventofcode2019 / day13.clj

diff --git a/src/adventofcode2019/day13.clj b/src/adventofcode2019/day13.clj
new file mode 100644 (file)
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)))