Sphereとともに

scalaとかplayframeworkとか。技術ブログにしたいなと。環境は Windows7x64, mac です。たまに声優さん情報が混ざります。最近ちょっとClojure触りました。

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)))

プログラミングClojure 第2版

プログラミングClojure 第2版