zehnpaard https://blog.hatena.ne.jp/zehnpaard/ Arantium Maestum https://zehnpaard.hatenablog.com/ Clojure SICP SICP1.3.1の問題1.33を解いてみる。 filtered-accumulateのiterative process版： (defn filtered-accumulate [combiner null-value filt f a next b] (loop [a a result null-value] (cond (> a b) result (filt a) (recur (next a) (combiner (f a) result)) :else (recur (next a) result)))) （recursive process版は引数のあまりの多さ・複雑さがおぞまし… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fzehnpaard.hatenablog.com%2Fentry%2F2016%2F06%2F03%2F145402" title="SICPの勉強 問題1.33 - 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 14:54:02 rich https://zehnpaard.hatenablog.com/entry/2016/06/03/145402 1.0 100%