Advent Of Code - 2019 - DAY 1 - EX 2 #adventOfCode2019

aoc_day1_ex2.clj

;; https://adventofcode.com/2019/day/1
(def massDatabase []) ;; get the input in the link

(defn roundDown
  [num] (int (Math/floor num)))

(defn fuelRequired 
  [mass] 
  (- (roundDown (/ mass 3)) 2)
)

(defn fuelRequiredTR [mass]
    (let [initialMass (fuelRequired mass)]
    (loop [cnt initialMass
           acc 0]
      (if (<= cnt 0) acc
        (recur (fuelRequired cnt) (+ cnt acc))))))

(reduce + (map fuelRequiredTR massDatabase))