From 19ed602c1ba7dc2b933274f50085c9c4f0f1105c Mon Sep 17 00:00:00 2001 From: rsiddharth Date: Sat, 14 Jan 2017 21:44:28 +0000 Subject: one -> net/ricketyspace/sicp --- one/eight.scm | 38 -------------------------------------- 1 file changed, 38 deletions(-) delete mode 100644 one/eight.scm (limited to 'one/eight.scm') diff --git a/one/eight.scm b/one/eight.scm deleted file mode 100644 index fb944e7..0000000 --- a/one/eight.scm +++ /dev/null @@ -1,38 +0,0 @@ -;;; Under Creative Commons Attribution-ShareAlike 4.0 -;;; International. See -;;; . - -(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)) - -- cgit v1.2.3