src/adventofcode2019/day13.clj

   1 (ns adventofcode2019.day13
   2     [:require [adventofcode2019.lib :refer :all]
   3               [adventofcode2019.intcode :as i]
   4               [clojure.string :as str]
   5               [clojure.core.match :refer [match]]
   6               [clojure.math.combinatorics :as combo]])
   7
   8 (defn day13 []
   9   (let [input (i/get-program (input-file))
  10         output (:output (i/intcode (i/build-state input)))
  11         draw-tiles (fn [screen [x y t]] (assoc screen [x y] t))
  12         screen (reduce draw-tiles {} (partition 3 output))]
  13     (part1 (count (filter #(= % 4) (vals screen))))
  14     #_(part2)))