{"description":"\u554f\u984c\u3092\u8aad\u307f\u53d6\u308c\u3066\u3044\u308b\u306e\u304b\u308f\u304b\u3089\u306a\u3044\u3002 \u554f\u984c 3.8 \u6700\u521d\u306b\u95a2\u6570\u304c\u547c\u3070\u308c\u305f\u306e\u3067\u3042\u308c\u3070\u3001\u305d\u306e\u5024\u3092\u8fd4\u3059\u3002\u4e8c\u5ea6\u76ee\u4ee5\u964d\u306a\u30890\u3092\u8fd4\u3059\u3002\u3068\u3044\u3046\u95a2\u6570\u306b\u3057\u3066\u307f\u305f\u3002 (define f (let ((flag #f)) (lambda (n) (if flag 0 (begin (set! flag #t) n))))) \u30d5\u30e9\u30b0\u304c\u7acb\u3063\u3066\u3044\u306a\u3051\u308c\u3070\u3001\u5024\u3092\u8fd4\u3057\u3001\u30d5\u30e9\u30b0\u304c\u7acb\u3063\u3066\u3044\u305f\u3089\u30bc\u30ed\u3092\u8fd4\u3059\u3002\u53f3\u304b\u3089\u8a55\u4fa1\u304c\u51fa\u6765\u306a\u3044\u306e\u3067\u3001f\u3092\u5165\u308c\u66ff\u3048\u3066\u30c6\u30b9\u30c8\u3057\u305f\u3002 (+ (f 0) (f 1)) ; 0 ; f\u3092\u518d\u5b9a\u7fa9 (+ (f 1) (f 0)) ; 1 SICP\u3068\u554f\u984c\u5171\u6709\u3067\u304d\u3066\u308b\u306e\u304b\u306a\u30fb\u30fb\u30fb\u3002 \u56de\u7b54\u3092\u63a2\u7d22\u3057\u3066\u307f\u308b\u3068\u8272\u3005\u3042\u3063\u3066\u9762\u767d\u3044\u2026","author_url":"https://blog.hatena.ne.jp/tanakaBox/","published":"2008-04-25 19:23:21","type":"rich","provider_url":"https://hatena.blog","version":"1.0","title":" SICP\u3092\u8aad\u3080(97) \u554f\u984c 3.8 - \u547d\u4ee4\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u306e\u843d\u3068\u3057\u7a74","image_url":null,"width":"100%","url":"https://boxnos.hatenablog.com/entry/20080425/1209119001","provider_name":"Hatena Blog","height":"190","blog_url":"https://boxnos.hatenablog.com/","author_name":"tanakaBox","blog_title":"\u30dc\u30af\u30ce\u30b9","categories":["Scheme"],"html":""}