忙中閑ありな感じでSICPをまたまた読んでいます。 Clojureでコード書いてみます。

まずはニュートン法による平方根です。

(defn sqrt-itr[guess x]
  (lazy-seq
   (cons guess
         (sqrt-itr (/ (+ guess (/ x guess)) 2) x))))