http://www.slideshare.net/kazh98/ss-24868347 √2の近似値を求める

gistfile1.scm

(define (cube n) (* n n n))
(define t 0.1)
(define (x k)
  (define (pre l) (x (- l 1)))
  (if (= k 0)
    2
    (- (pre k)
      (* t (-
        (* 4 (cube (pre k)))
        (* 8 (pre k)))))))

;gosh> (x 10)
;1.416106250747764
;この書き方だと手元の環境で(x 15)とかに数秒掛かる