(def enemy-keys [:enemy :dist]) (defn -main [& args] (loop [] (let [count (read)] (let [enemy-list (repeatedly (* count 2) #(read))] (let [part (partition 2 enemy-list)] (->> (map #(zipmap enemy-keys %) part) (apply min-key :dist) (vals) (…