{"categories":["\u4e00\u4eba\u52c9\u5f37\u4f1a","SICP"],"type":"rich","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fmasahito.hatenablog.com%2Fentry%2F20090223%2F1235401478\" title=\"\u7b2c\u4e00\u7ae0\uff082\uff09 - Keep on moving\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","author_url":"https://blog.hatena.ne.jp/Ehren/","provider_name":"Hatena Blog","url":"https://masahito.hatenablog.com/entry/20090223/1235401478","title":"\u7b2c\u4e00\u7ae0\uff082\uff09","provider_url":"https://hatena.blog","blog_title":"Keep on moving","published":"2009-02-23 00:04:38","blog_url":"https://masahito.hatenablog.com/","height":"190","description":"\u4f8b\u984c1.1.7 (define (average x y) (exact->inexact (/ (+ x y) 2))) (define (improve guess x) (average guess (exact->inexact (/ x guess)))) (define (good-enough? guess x) (< (abs (- (square guess) x)) 0.001)) (define (sqrt-iter guess x) (if (good-enough? guess x) guess (sqrt-iter (improve guess x) x))) (d\u2026","author_name":"Ehren","version":"1.0","width":"100%","image_url":null}