summaryrefslogtreecommitdiffstats
path: root/one
diff options
context:
space:
mode:
authorrsiddharth <rsiddharth@ninthfloor.org>2016-04-02 00:49:10 +0000
committerrsiddharth <rsiddharth@ninthfloor.org>2016-04-02 00:49:10 +0000
commit73a4828812f247eb8c6ee5eced7cf9b12501f5b8 (patch)
treeeaf0777d15957c8731a997a7a5252ba7b949a14b /one
parentda0a1a31adefbc72660af102383b09994a96b4c7 (diff)
one/seven - Add comments.
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))