{"provider_url":"https://hatena.blog","type":"rich","width":"100%","provider_name":"Hatena Blog","blog_title":"Arantium Maestum","version":"1.0","height":"190","description":"SICP1.3.1\u306e\u554f\u984c1.29\u3092\u89e3\u3044\u3066\u307f\u308b\u3002 \u3068\u308a\u3042\u3048\u305aSimpson Rule\u3092\u4f7f\u308f\u306a\u3044\u7a4d\u5206\u6cd5\uff1a (defn sum [f a next b] (if (> a b) 0 (+ (f a) (sum f (next a) next b)))) (defn integral [f a b dx] (letfn [(add-dx [x] (+ x dx))] (* (sum f (+ a (/ dx 2.0)) add-dx b) dx))) \u3053\u308c\u306bcube\u3092\u5b9a\u7fa9\u3057\u3066\u5165\u308c\u3066\u3084\u308b\uff1a (defn cube [x] (* x x x)) (integral cube 0 1 0.001) \u7d50\u679c\u306f0.\u2026","image_url":null,"author_url":"https://blog.hatena.ne.jp/zehnpaard/","published":"2016-06-03 13:23:34","title":"SICP\u306e\u52c9\u5f37 \u554f\u984c1.29","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fzehnpaard.hatenablog.com%2Fentry%2F2016%2F06%2F03%2F132334\" title=\"SICP\u306e\u52c9\u5f37 \u554f\u984c1.29 - 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>","author_name":"zehnpaard","blog_url":"https://zehnpaard.hatenablog.com/","categories":["Clojure","SICP"],"url":"https://zehnpaard.hatenablog.com/entry/2016/06/03/132334"}