Advent of Code 2018 Day 1

advent-of-code-2018-01.clj

(def input (->> (slurp "input.txt")
                clojure.string/split-lines
                (map #(Integer. %))))

(def part-1 (apply + input))
(def part-2 (->> (cycle input)
                 (reductions + 0)
                 (reduce (fn [seen? v]
                           (if (seen? v)
                             (reduced v)
                             (conj seen? v)))
                         #{}))