{"url":"https://zehnpaard.hatenablog.com/entry/2016/06/07/073736","categories":["Clojure","SICP"],"image_url":null,"published":"2016-06-07 07:37:36","width":"100%","blog_url":"https://zehnpaard.hatenablog.com/","blog_title":"Arantium Maestum","version":"1.0","provider_url":"https://hatena.blog","author_url":"https://blog.hatena.ne.jp/zehnpaard/","height":"190","title":"SICP\u306e\u52c9\u5f37 \u554f\u984c2.1","description":"\u6709\u7406\u6570\u306e\u30c7\u30fc\u30bf\u30bf\u30a4\u30d7\u304c\u30de\u30a4\u30ca\u30b9\u306a\u5834\u5408\u306f\u5206\u5b50\u306e\u65b9\u306b\u5fc5\u305a\u8ca0\u53f7\u304c\u304f\u308b\u3088\u3046\u306b\u4fee\u6b63\u3059\u308b\u3002 \u307e\u305a\u306f\u5143\u306emake-rat\u95a2\u6570\u3092clojure\u3067\u66f8\u304f\uff1a (defn gcd [a b] (let [c (rem a b)] (if (zero? c) b (recur b c)))) (defn make-rat [n d] (let [g (gcd n d)] [(/ n g) (/ d g)])) cons\u3067\u306f\u306a\u304f\u3066\u305d\u306e\u307e\u307e\u30d9\u30af\u30c8\u30eb\u66f8\u304d\u3002\u307e\u3042\u3053\u3053\u306e\u5b9f\u88c5\u306f\u3069\u3046\u3067\u3082\u3044\u3044\u3001\u3068\u3044\u3046\u306e\u306f\u4f5c\u8005\u305f\u3061\u3082\u8a00\u3063\u3066\u3044\u308b\u3053\u3068\u3060\u3057\u3002 \u4ee5\u4e0b\u304c\u4fee\u6b63\u3057\u305f\u3082\u306e\uff1a (defn make-rat [n d] (let [g (gcd n d) \u2026","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fzehnpaard.hatenablog.com%2Fentry%2F2016%2F06%2F07%2F073736\" title=\"SICP\u306e\u52c9\u5f37 \u554f\u984c2.1 - 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>","provider_name":"Hatena Blog","author_name":"zehnpaard","type":"rich"}