{"title":"SICP\u554f\u984c3.9","author_name":"tmurata","url":"https://tmurata.hatenadiary.org/entry/20091208/1260277287","width":"100%","image_url":"https://cdn-ak.f.st-hatena.com/images/fotolife/t/tmurata/20091208/20091208222633.png","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Ftmurata.hatenadiary.org%2Fentry%2F20091208%2F1260277287\" title=\"SICP\u554f\u984c3.9 - tmurata\u306e\u65e5\u8a18\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","type":"rich","version":"1.0","blog_url":"https://tmurata.hatenadiary.org/","provider_name":"Hatena Blog","author_url":"https://blog.hatena.ne.jp/tmurata/","blog_title":"tmurata\u306e\u65e5\u8a18","published":"2009-12-08 22:01:27","categories":["SICP"],"height":"190","provider_url":"https://hatena.blog","description":"1.2.1\u7bc0\u306e\u968e\u4e57\u3092\u8a08\u7b97\u3059\u308b\u624b\u7d9a\u304d \u518d\u5e30\u7248 (define (factorial n) (if (= n 1) 1 (* n (factorial (- n 1))))) \u53cd\u5fa9\u7248 (define (factorial n) (fact-iter 1 1 n)) (define (fact-iter product counter max-count) (if (> counter max-count) product (fact-iter (* counter product) (+ counter 1) (max-count)))) \u305d\u308c\u305e\u308c\u306e\u7248\u3092\u4f7f\u3063\u3066 (factorial 6) \u3092\u8a55\u4fa1\u3059\u2026"}