diff options
| -rw-r--r-- | one/seven.scm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/one/seven.scm b/one/seven.scm index cc3c7b9..0c78ab8 100644 --- a/one/seven.scm +++ b/one/seven.scm @@ -10,6 +10,7 @@ (use-modules (one six)) +;;;; start yak shaving (define (gen-good-enough tolerance) (lambda (guess x) (< (abs (- (square guess) x)) tolerance))) @@ -31,6 +32,8 @@ (cons tolerance custom-sqrt) (cons (cons tolerance custom-sqrt) (tolerances-and-sqrt x (/ tolerance 10)))))) +;;;; end yak shaving + ;;; start excercise 1.1.7 (define (good-enough-alt? guess prev-guess) (< (abs (- guess prev-guess)) 0.001)) |