[SOLVED] CS代考程序代写 (define (sqrt x)

(define (sqrt x)
(define (square y)(* y y))

;(define (good-enough? guess)
;(< (abs (- (square guess) x)) 0.001))(define (good-enough? guess)(let ((tolerance 0.001) (difference (abs (- (square guess) x)))) (< difference tolerance)))(define (average x y)(/ (+ x y) 2))(define (improve guess)(average guess (/ x guess)))(define (sqrt-iteration guess)(if (good-enough? guess)guess(sqrt-iteration (improve guess))))(sqrt-iteration 1.0))(let ((a 1)(b (+ 1 1)))(+ a b))(define (letExample c)(let ((a 10)(b 7))(+ a b c)))(letExample 13)(define (letEx2 x)(+ (let ((x 3)) (+ x (* x 10))) x))(letEx2 5)#|(define (letEx3)(let ((x 3)(y (+ x 1))) ;error, x is undefined (* x y)))|#(define (letEx3)(let ((x 3))(let ((y (+ x 1))) (* x y))))(letEx3)(define (letEx3b)(let* ((x 3)(y (+ x 1)))(* x y)))(letEx3b)#|(define (usingDef x)(if (> x 0)
(begin (define y 7)
(+ x y))))|#
;(usingDef 17)

(define (usingLet x)
(if (> x 0)
(let ((y 7))
(+ x y))))
(usingLet 17)