Skip to content

Instantly share code, notes, and snippets.

/gist:2690031

Created May 13, 2012 20:22
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save anonymous/2690031 to your computer and use it in GitHub Desktop.
Save anonymous/2690031 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.clj
(defn iter1 [n x]
(/ (+ (/ n x) x) 2.0))
(defn sqrt [n times]
(nth (iterate #(iter1 n %) 1.0) times))
#_ (sqrt 2 100) ;; 1.41421
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment