summaryrefslogtreecommitdiffstats
path: root/one
diff options
context:
space:
mode:
Diffstat (limited to 'one')
-rw-r--r--one/seven.scm3
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))