-(ns aoc.core
- [:require [clojure.string :as str]])
-
-(def get-list-from-file
- #(str/split-lines (slurp %)))
-
-(def parse-int
- #(Integer/parseInt %))
+(ns adventofcode2019.day01
+ [:require [adventofcode2019.lib :refer :all]
+ [clojure.string :as str]])
(defn get-fuel-req [mass]
(reduce + (take-while #(> % 0) (drop 1 (iterate #(- (quot % 3) 2) mass)))))
(defn total-fuel-requirement [input]
(reduce + (map get-fuel-req input)))
-(defn -main []
- (let [input (map parse-int (get-list-from-file "input"))]
+(defn day01 []
+ (let [input (map parse-int (get-list-from-file (input-file)))]
(println (total-fuel-requirement-naive input))
(println (total-fuel-requirement input))))
-
-(-main)