zehnpaard https://blog.hatena.ne.jp/zehnpaard/ Arantium Maestum https://zehnpaard.hatenablog.com/ Clojure SICP SICP1.3.1の問題1.29を解いてみる。 とりあえずSimpson Ruleを使わない積分法： (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))) これにcubeを定義して入れてやる： (defn cube [x] (* x x x)) (integral cube 0 1 0.001) 結果は0.… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fzehnpaard.hatenablog.com%2Fentry%2F2016%2F06%2F03%2F132334" title="SICPの勉強 問題1.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> Hatena Blog https://hatena.blog 2016-06-03 13:23:34 rich https://zehnpaard.hatenablog.com/entry/2016/06/03/132334 1.0 100%