Codingameメモ
(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) (second) (println) doall)))) (recur)))
- 作者: Stuart Halloway and Aaron Bedra,川合史朗
- 出版社/メーカー: オーム社
- 発売日: 2013/04/26
- メディア: 単行本(ソフトカバー)
- この商品を含むブログ (9件) を見る