one -> net/ricketyspace/sicp

1 files changed, 0 insertions, 38 deletions

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
-;;; <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))
-