1.8
正文需要 50 字，而我无话可说，贴陆游诗一首：
古人学问无遗力，少壮工夫老始成。纸上得来终觉浅，绝知此事要躬行。
#lang sicp(define (cube x) (* x x x))(define (good-enough? previous guess) (< (/ (abs (- previous guess)) guess) 0.0000000001))(define (cube-root-iter guess x) (if (good-enough? guess (improve guess x)) guess (cube-root-iter (improve guess x) x)))(define (improve guess x) (/ (+ (/ x (* guess guess)) (* 2 guess)) 3))(define (cube-root x) (cube-root-iter 1.0 x))
#lang sicp
(define (cube x) (* x x x))
(define (good-enough? previous guess)
(< (/ (abs (- previous guess)) guess) 0.0000000001))
(define (cube-root-iter guess x)
(if (good-enough? guess (improve guess x))
guess
(cube-root-iter (improve guess x) x)))
(define (improve guess x)
(/ (+ (/ x (* guess guess)) (* 2 guess)) 3))
(define (cube-root x)
(cube-root-iter 1.0 x))
还未添加个人签名 2018.09.26 加入
这人眼高手低 夸夸其谈
京公网安备 11010502039052号京公网安备 11010502039052号京公网安备 11010502039052号
评论