{"width":"100%","author_url":"https://blog.hatena.ne.jp/tanakaBox/","categories":["Scheme"],"provider_url":"https://hatena.blog","height":"190","published":"2007-12-21 03:48:35","version":"1.0","blog_title":"\u30dc\u30af\u30ce\u30b9","image_url":null,"blog_url":"https://boxnos.hatenablog.com/","title":" SICP\u3092\u8aad\u3080(79) \u554f\u984c2.68 \u30cf\u30d5\u30de\u30f3\u7b26\u53f7\u5316\u6728(2)","type":"rich","url":"https://boxnos.hatenablog.com/entry/20071221/1198176515","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fboxnos.hatenablog.com%2Fentry%2F20071221%2F1198176515\" title=\" SICP\u3092\u8aad\u3080(79) \u554f\u984c2.68 \u30cf\u30d5\u30de\u30f3\u7b26\u53f7\u5316\u6728(2) - \u30dc\u30af\u30ce\u30b9\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","provider_name":"Hatena Blog","author_name":"tanakaBox","description":"\u7b26\u53f7\u5316\u306b\u6311\u6226\u3002 \u554f\u984c 2.68 \u7b26\u53f7\u6728\u3092\u5143\u306b\u3001(A D A B B C A)\u3092\u7b26\u53f7\u5316\u305b\u3088\u3002\u3068\u3044\u3046\u554f\u984c\u3002\u30e0\u30ba\u305d\u3046\u306a\u306e\u3067\u65b9\u91dd\u3092\u7df4\u308a\u307e\u3059\u3002 \u65b9\u91dd \u7b26\u53f7\u5316\u3067\u306e\u30dd\u30a4\u30f3\u30c8\u306f\u3001\u5c65\u6b74\u3092\u8fd4\u3059\u3068\u3044\u3046\u6240\u3002 \u8449\u304c\u898b\u4ed8\u304b\u3063\u305f\u3089\u3001'()\u3092\u8fd4\u3057\u307e\u3059\u3002\u898b\u4ed8\u304b\u3089\u306a\u304b\u3063\u305f\u3089#f\u3092\u8fd4\u3057\u307e\u3059\u3002\u679d\u306e\u691c\u7d22\u3082\u540c\u3058\u3088\u3046\u306b\u679d\u306e\u5148\u304c\u30ea\u30b9\u30c8\u306a\u3089\u3070cons\u3057\u3066\u8fd4\u3057\u307e\u3059\u3002\u898b\u4ed8\u304b\u3089\u306a\u3051\u308c\u3070#f\u3092\u8fd4\u3057\u307e\u3059\u3002\u6700\u5f8c\u307e\u3067\u691c\u7d22\u3057\u3066\u3001#f\u306a\u3089\u3070\u30a8\u30e9\u30fc\u3068\u306a\u308a\u307e\u3059\u3002 \u30b3\u30fc\u30c7\u30a3\u30f3\u30b0 \u5984\u60f3\u65b9\u91dd\u3092\u5143\u306b\u30b3\u30fc\u30c7\u30a3\u30f3\u30b0 (define (encode-symbol symbol tree) (define (iter tree) (if (leaf? tree) (if (eq?\u2026"}