(defn newton-sqrt [x]
(newton-method (fn [y] (- (square y) x))
- 1.0))
\ No newline at end of file
+ 1.0))
+
+(defn fixed-point-of-transform [g transform guess]
+ (fixed-point (transform g) guess))
+
+(defn sqrt1 [x]
+ (fixed-point-of-transform (fn [y] (/ x y))
+ average-damp
+ 1.0))
+
+(defn sqrt2 [x]
+ (fixed-point-of-transform (fn [y] (- (square y) x))
+ newton-transform
+ 1.0))
\ No newline at end of file