src/adventofcode2019/day09.clj

   1 (ns adventofcode2019.day09
   2     [:require [adventofcode2019.lib :refer :all]
   3               [adventofcode2019.intcode :as i]])
   4
   5 (defn day09 []
   6   (let [input (mapv parse-int (get-list-from-file (input-file) #","))]
   7     (part1 (:output (i/intcode (i/build-state input {:input [1]}))))
   8     (part2 (:output (i/intcode (i/build-state input {:input [2]}))))))