SICP NewtonをClojureで実装する
忙中閑ありな感じでSICPをまたまた読んでいます。 Clojureでコード書いてみます。
まずはニュートン法による平方根です。
(defn sqrt-itr[guess x]
(lazy-seq
(cons guess
(sqrt-itr (/ (+ guess (/ x guess)) 2) x))))
忙中閑ありな感じでSICPをまたまた読んでいます。 Clojureでコード書いてみます。
まずはニュートン法による平方根です。
(defn sqrt-itr[guess x]
(lazy-seq
(cons guess
(sqrt-itr (/ (+ guess (/ x guess)) 2) x))))