Add untested day13pt1

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

diff --git a/src/adventofcode2019/intcode.clj b/src/adventofcode2019/intcode.clj
index 84a96254126ed52d7dcbb53c4e8c808be06aced9..9f09f1083f4a9fcff5c7e3f2994fdc86abdf2017 100644 (file)
--- a/src/adventofcode2019/intcode.clj
+++ b/src/adventofcode2019/intcode.clj
@@ -61,6 +61,9 @@
         args (map memory [(+ 1 ctr) (+ 2 ctr) (+ 3 ctr)])]
     (apply operation state args)))
 
+(defn get-program [input-file]
+  (map parse-int (get-list-from-file input-file) #","))
+
 (defn build-state 
   ([program]
    (let [memory (into {} (map-indexed #(vector %1 %2) program))]