sicp

sicp sandbox.
git clone git://git.ricketyspace.net/sicp.git
Log | Files | Refs

commit 73a4828812f247eb8c6ee5eced7cf9b12501f5b8
parent da0a1a31adefbc72660af102383b09994a96b4c7
Author: rsiddharth <rsiddharth@ninthfloor.org>
Date:   Sat,  2 Apr 2016 00:49:10 +0000

one/seven - Add comments.

Diffstat:
one/seven.scm | 3+++
1 file changed, 3 insertions(+), 0 deletions(-)

diff --git 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))