ASOCS

摘要： ;; p1.37(define cont-frac (lambda (fn fd k) (define frac-inside (lambda (x) (if (= x k) (/ (fn x) (fd x)) (/ (fn x) (+ (fd x) (frac-inside (+ x 1))))))) (frac-inside 1)));; b(define cont-frac-i (lambda (fn fd k) (define frac-i (lambda (init k) ... 阅读全文

摘要： (define fixed-point (lambda (f first-guess) (define tolerance 0.00001) (define close-enough? (lambda (v1 v2) (< (abs (- v1 v2)) tolerance))) (define try (lambda (guess) (let ([next (f guess)]) (if (close-enough? guess next) next (t... 阅读全文