{"height":"190","type":"rich","author_url":"https://blog.hatena.ne.jp/doloopwhile/","published":"2010-05-10 19:58:00","version":"1.0","categories":[],"url":"https://doloopwhile.hatenablog.com/entry/20100510/1273489080","provider_url":"https://hatena.blog","blog_url":"https://doloopwhile.hatenablog.com/","description":"\u4e00\u6642\u9593\u3067\u899a\u3048\u308b Ruby\u3092\u898b\u7fd2\u3044\u3001 \u30d5\u30a1\u30a4\u30eb\u5185\u306e\u5358\u8a9e\u6570\u3092\u6570\u3048\u308b\u30b3\u30de\u30f3\u30c9\u3001wc\u3092\u4f5c\u3063\u3066\u307f\u307e\u3059\u3002 ;word-count.clj (use 'clojure.contrib.duck-streams) (use 'clojure.contrib.str-utils) (defn read-words [path] (for [line (read-lines path) word (re-split #\"\\s\" line)] word)) (println (count (for [f *command-line-args* word (read-words f)] word))) \u30e1\u30e2 cloj\u2026","width":"100%","title":"Clojure\u3067\u5358\u8a9e\u3092\u6570\u3048\u308b","author_name":"doloopwhile","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fdoloopwhile.hatenablog.com%2Fentry%2F20100510%2F1273489080\" title=\"Clojure\u3067\u5358\u8a9e\u3092\u6570\u3048\u308b - None is None is None\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","image_url":null,"provider_name":"Hatena Blog","blog_title":"None is None is None"}