Code Review

Compare your solutions

    #| BEGIN (Write your solution here) |#
(define (square x)
    (* x x)
)

(define (average x y)
    (/ (+ x y) 2)
)

(define (improve guess x)
    (average guess (/ x guess))
)

(define (relatively-good-enough? guess x)
    ( < (/ (abs (- (square guess) x)) guess) 0.0000001)
)

(define (sqrt-iter guess x)
    (if
        (relatively-good-enough? guess x)
        guess
        (sqrt-iter (improve guess x) x)
    )
)

(define (square-root x)
	(sqrt-iter 1.0 x)  
)
#| END |#