062converge.test

def (newton_raphson_sqrt_of_2 x)
  ((x + (2.0 / x)) / 2)

(test "converge works"
  :valueof (let x (converge newton_raphson_sqrt_of_2 1.0)
             (x * x))
  :should be 2.0)