Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on May 13th, 2012  |  syntax: Clojure  |  size: 0.27 KB  |  hits: 32  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. (defn sqrt-iter [guess x]
  2.      (if(good-enough? guess x)
  3.        guess
  4.        (sqrt-iter (improve guess x)
  5.                   x)))
  6.  
  7. (defn good-enough? [guess x]
  8.      (< (abs (- (square guess) x)) 0.001))
  9.  
  10. (defn sqrt [x]
  11.      (sqrt-iter 1.0 x))
  12.  
  13. //Usage:
  14. (sqrt 9)
create a new version of this paste RAW Paste Data