You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

24 lines
511 B
Clojure

(defn calc-fuel [lst pos]
(->> lst
(map
(comp
#(/ (* % (inc %)) 2)
#(Math/abs %)
(partial - pos)
)
)
(apply +)
)
)
(let [input (->> (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))))
)