{"height":"190","description":"SICP1.3.3\u306e\u554f\u984c1.37\u3092\u89e3\u3044\u3066\u307f\u308b\u3002 recursive process: (defn cont-frac [n d k] (letfn [(rec [i] (if (= i k) (/ (n i) (d i)) (/ (n i) (+ (d i) (rec (inc i))))))] (rec 1))) iterative process: (defn cont-frac [n d k] (loop [i k result 0] (if (zero? i) result (recur (dec i) (/ (n i) (+ (d i) result)))))) idiomatic \u2026","provider_name":"Hatena Blog","blog_title":"Arantium Maestum","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fzehnpaard.hatenablog.com%2Fentry%2F2016%2F06%2F03%2F190535\" title=\"SICP\u306e\u52c9\u5f37 \u554f\u984c1.37 - 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_url":"https://hatena.blog","type":"rich","author_name":"zehnpaard","published":"2016-06-03 19:05:35","width":"100%","image_url":null,"version":"1.0","title":"SICP\u306e\u52c9\u5f37 \u554f\u984c1.37","author_url":"https://blog.hatena.ne.jp/zehnpaard/","categories":["Clojure","SICP"],"blog_url":"https://zehnpaard.hatenablog.com/","url":"https://zehnpaard.hatenablog.com/entry/2016/06/03/190535"}