(defn calculate-fuel
  [mass]
  (- (quot mass 3) 2))

(defn calculate-total-fuel
  [masses]
  "Solves Pt. 1"
  (reduce + (map calculate-fuel masses)))

(defn calculate-extra-fuel
  [mass]
  (reduce + (drop 1 (take-while pos? (iterate calculate-fuel mass)))))

(defn calculate-total-extra-fuel
  "Solves Pt. 2"
  [masses]
  (reduce + (map calculate-extra-fuel masses)))