X-Git-Url: http://git.jkinsey.net/?p=adventofcode2019.git;a=blobdiff_plain;f=src%2Fadventofcode2019%2Fintcode.clj;fp=src%2Fadventofcode2019%2Fintcode.clj;h=9f09f1083f4a9fcff5c7e3f2994fdc86abdf2017;hp=84a96254126ed52d7dcbb53c4e8c808be06aced9;hb=15f6c3bbb172e88ff9a6d393057abc40db9373bf;hpb=2441c6e83817ce81f250f943ea252f866957bee8

diff --git a/src/adventofcode2019/intcode.clj b/src/adventofcode2019/intcode.clj
index 84a9625..9f09f10 100644
--- 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))]