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

niclojure/textja at master · hellonico/niclojure · GitHub

最近はQiitaに投稿しまくってるのでたまにはこちらにも記事を書きましょう。モノはこちらFScoward/tweet-anime-clj · GitHub ※使用の際には twitter4j.properties も必要140文字超える場合はツイートを分けるとか考えたけどちょっとめんどくさかったので一旦…