(mapv velocity (reduce apply-gravity bodies all-pairs))))
(defn day12 []
- (let [input (map parse-coords (get-list-from-file (input-file)))
+ (let [input (mapv parse-coords (get-list-from-file (input-file)))
simulate (iterate step-simulation input)]
(part1 (reduce + (map total-energy (nth simulate 1000))))
#_(part2)))