day7/part2.clj


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

(defn calc-fuel [lst pos]
  (reduce #(as-> %2 $
             (- pos $)
             (Math/abs $)
             (/ (* $ (inc $)) 2)
             (+ %1 $)
             )
          0 lst
          )
  )

(let [input (as-> (slurp "./in") $ ;"16,1,2,0,4,2,7,1,2,14"
                  (clojure.string/split $ #",")
                  (map read-string $)
                  )
      mean (quot (apply + input) (count input))]
  (println (min (calc-fuel input mean)
                (calc-fuel input (inc mean))))
  )