zehnpaard https://blog.hatena.ne.jp/zehnpaard/ Arantium Maestum https://zehnpaard.hatenablog.com/ Clojure SICP SICP1.3.3の問題1.36を解いてみる。 と、その前にまずfixed-pointをClojureっぽく書いてみる。 シーケンス[a0 a1 ... an-1 an]から[a0 a1 ... ai-2 ai-1] [a1 a2 ... ai-1 ai] [a2 a3 ... ai ai+1]と続くベクトルのシーケンスを作成する関数： (defn conseq [i seq] (->> seq (iterate rest) (take i) (apply map vector))) これってcoreで定義されてても良くない？といつも思う、シーケンスから条件に合致する最初の要素を取る関数： (… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fzehnpaard.hatenablog.com%2Fentry%2F2016%2F06%2F03%2F165822" title="SICPの勉強 問題1.36 - 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 16:58:22 rich https://zehnpaard.hatenablog.com/entry/2016/06/03/165822 1.0 100%