AoC 2019 - Day 1

1.clj

(ns aoc2019.core)

;; Part 1
(defn fuel [mass]
  (- (int (Math/floor (/ mass 3))) 2))

;; Read File
(def input
  (->> (slurp "1.txt")
       clojure.string/split-lines
       (map #(Integer/parseInt %))))

;; Apply fuel calculations - Part 1
(reduce + (map #(fuel %) input))

;; Part 2
(defn fuel_rec [mass]
  (let [requirement (fuel mass)]
    (if (<= requirement 0) 0 (+ requirement (fuel_rec requirement)))))

;; Apply fuel calculations - Part 2
(reduce + (map #(fuel_rec %) input))