{"provider_url":"https://hatena.blog","provider_name":"Hatena Blog","url":"https://zehnpaard.hatenablog.com/entry/2016/06/08/184558","width":"100%","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fzehnpaard.hatenablog.com%2Fentry%2F2016%2F06%2F08%2F184558\" title=\"SICP\u306e\u52c9\u5f37 \u554f\u984c2.20~21 - Arantium Maestum\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","description":"2.20 \u5f15\u6570\u306e\u30ea\u30b9\u30c8\u306e\u5148\u982d\u306e\u8981\u7d20\u304c\u5947\u6570\u306a\u3089\u5947\u6570\u306e\u8981\u7d20\u306e\u307f\u5168\u3066\u3001\u5076\u6570\u306a\u3089\u5076\u6570\u306e\u8981\u7d20\u306e\u307f\u5168\u3066\u306e\u30ea\u30b9\u30c8\u3092\u8fd4\u3059\u95a2\u6570\uff1a (defn same-parity [x & xs] (letfn [(p? [n] (= (rem x 2) (rem n 2))) (f [items] (cond (empty? items) nil (p? (first items)) (cons (first items) (f (rest items))) :else (f (rest items))))] (cons x (f xs)))) \u30fb\u30fb\u30fbfilter\u4e07\u6b73\uff01 (defn same-parity-m [x & x\u2026","image_url":null,"author_name":"zehnpaard","published":"2016-06-08 18:45:58","height":"190","blog_url":"https://zehnpaard.hatenablog.com/","title":"SICP\u306e\u52c9\u5f37 \u554f\u984c2.20~21","author_url":"https://blog.hatena.ne.jp/zehnpaard/","categories":["Clojure","SICP"],"type":"rich","blog_title":"Arantium Maestum","version":"1.0"}