day07

1 files changed, 23 insertions, 0 deletions

diff --git a/day07.clj b/day07.clj
new file mode 100644
index 0000000..255ffeb
--- /dev/null
+++ b/day07.clj
@@ -0,0 +1,23 @@
+(defn parse [l]
+  (let [words (clojure.string/split l #" ")
+        x (str (words 0) " " (words 1))
+        y (map (fn [[n a b _]] [(Integer/parseInt n) (str a " " b)])
+                (partition 4 (drop 4 words)))]
+    {x y}))
+
+(def data
+  (->> (slurp "day07")
+       (clojure.string/split-lines)
+       (map parse)
+       (into {})))
+
+(defn trav [b]
+  (or (= b "shiny gold")
+      (some trav (map second (data b)))))
+
+(dec (count (filter trav (keys d)))) ; => 278
+
+(defn sumup [b]
+  (inc (apply + (map (fn [[n x]] (* n (sumup x))) (data b)))))
+
+(dec (sumup "shiny gold")) ; => 45157