home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d3xx / d385 / xlispstat.lha / XLispStat / lisp.lzh / XLisp-Stat / Book / sqrt.lsp < prev    next >
Encoding:
Lisp/Scheme  |  1990-10-11  |  289 b   |  13 lines
  1. ; book p.83
  2.  
  3. (defun sqrt-iter (guess x)
  4.   (if (good-enough-p guess x)
  5.       guess
  6.       (sqrt-iter (improve guess x) x)))
  7.  
  8. (defun improve (guess x) (mean (list guess (/ x guess))))
  9.  
  10. (defun good-enough-p (guess x)
  11.   (< (abs (- (* guess guess) x)) .001))
  12.  
  13. (defun my-sqrt (x) (sqrt-iter 1 x))