Add untested day9pt1

diff --git a/src/adventofcode2019/core.clj b/src/adventofcode2019/core.clj
index 395bf5ddada82079168fd9ad72f89b4933ab33ba..6d53fd5c5312d3b06099116bc88d71dc4991a495 100644 (file)
--- a/src/adventofcode2019/core.clj
+++ b/src/adventofcode2019/core.clj
@@ -1,7 +1,7 @@
 (ns adventofcode2019.core
     [:require (adventofcode2019 day01 day02 day03
                                 day04 day05 day06
-                                day07 day08)])
+                                day07 day08 day09)])
 
 (defn -main 
   ([]

diff --git a/src/adventofcode2019/day09.clj b/src/adventofcode2019/day09.clj
new file mode 100644 (file)
index 0000000..495b336
--- /dev/null
+++ b/src/adventofcode2019/day09.clj
@@ -0,0 +1,11 @@
+(ns adventofcode2019.day09
+    [:require [adventofcode2019.lib :refer :all]
+              [adventofcode2019.intcode :as i]
+              [clojure.string :as str]
+              [clojure.core.match :refer [match]]
+              [clojure.math.combinatorics :as combo]])
+
+(defn day09 []
+  (let [input (mapv parse-int (get-list-from-file (input-file) #","))] 
+    (part1 (:output (i/intcode (i/build-state input {:input [1]}))))
+    #_(part2)))