aoc2019 day1

Author: quan-nh

resources/2019/day01

@@ -0,0 +1,100 @@
+130762
+108691
+131618
+138163
+59967
+130453
+117515
+115776
+134083
+86966
+128075
+55569
+112843
+97878
+92330
+70917
+143903
+81171
+148506
+141379
+131161
+88719
+69654
+82141
+55265
+75623
+97408
+105269
+147378
+126054
+133962
+60304
+130503
+138350
+93164
+69661
+69271
+100054
+138295
+142865
+64142
+123466
+80101
+149696
+102510
+129988
+87742
+106785
+133039
+59192
+86544
+124950
+64242
+80128
+109287
+129634
+140335
+118220
+106819
+97296
+111003
+103222
+54192
+103548
+63861
+140571
+50476
+100570
+114065
+110279
+64720
+91941
+62312
+80834
+132969
+51973
+115887
+68662
+138266
+107234
+75795
+81409
+78610
+112587
+92384
+111804
+138861
+79393
+81285
+131307
+68815
+54976
+127529
+103359
+138537
+79663
+128097
+56085
+96504
+119501

src/aoc19/day01.clj

@@ -0,0 +1,24 @@
+(ns aoc19.day01
+  (:require [clojure.java.io :as io]
+            [clojure.string :as str]))
+
+(def input (->> (io/resource "2019/day01")
+                slurp
+                str/split-lines
+                (map #(Integer/valueOf %))))
+
+(defn fuel [mass] (- (quot mass 3) 2))
+
+(defn total-fuel [mass]
+  (->> (iterate fuel mass)
+       (take-while pos?)
+       rest
+       (apply +)))
+
+; part 1
+(apply + (map fuel input))
+; 3399394
+
+; part 2
+(apply + (map total-fuel input))
+; 15295091