Guest User

Untitled

a guest
Oct 16th, 2011
189
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (defn sq-iter
  2.   [x] (sq-iter 1 x)
  3.   [guess x]
  4.   (if (good-enough? guess x)
  5.     guess
  6.    (recur (improve guess x ) x)
  7.     )
  8.   )
  9.  
Advertisement
Add Comment
Please, Sign In to add comment