sicp

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

commit 7324e84999431c3b6aaf151241696034b7301468
parent 0e3dccf67b94f3edd02efb153ce864d81de82ead
Author: rsiddharth <rsiddharth@ninthfloor.org>
Date:   Sat, 30 Apr 2016 20:31:19 +0000

Add one/eight.scm

Exercise 1.8.

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

diff --git a/one/eight.scm b/one/eight.scm @@ -0,0 +1,38 @@ +;;; Under Creative Commons Attribution-ShareAlike 4.0 +;;; International. See +;;; <https://creativecommons.org/licenses/by-sa/4.0/>. + +(define-module (one eight) + #:export (cube double + div-three improve + good-enough? cbrt-iter + cbrt-sicp)) + +(use-modules (one six)) + +(define (cube x) + (* (square x) x)) + +(define (double x) + (* 2 x)) + +(define (div-three x) + (/ x 3.0)) + +(define (improve y x) + (div-three (+ (/ x (square y)) + (double y)))) + +(define (good-enough? y x) + (< (abs (- (cube y) x)) + 0.001)) + +(define (cbrt-iter y x) + (if (good-enough? y x) + y + (cbrt-iter (improve y x) + x))) + +(define (cbrt-sicp x) + (cbrt-iter 1.0 x)) +