{"author_url":"https://blog.hatena.ne.jp/awacio/","image_url":null,"url":"https://awacio.hatenadiary.org/entry/20100512/1273670118","provider_name":"Hatena Blog","published":"2010-05-12 22:15:18","blog_url":"https://awacio.hatenadiary.org/","author_name":"awacio","title":"SICP \u554f\u984c 2.32\uff08\u90e8\u5206\u96c6\u5408\u3092\u6c42\u3081\u308b\uff09","blog_title":"awacio.log","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fawacio.hatenadiary.org%2Fentry%2F20100512%2F1273670118\" title=\"SICP \u554f\u984c 2.32\uff08\u90e8\u5206\u96c6\u5408\u3092\u6c42\u3081\u308b\uff09 - awacio.log\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","width":"100%","version":"1.0","type":"rich","provider_url":"https://hatena.blog","categories":["Scheme","SICP"],"description":"\u3010\u554f\u984c\u3011 \u96c6\u5408\u306f\u76f8\u7570\u306a\u308b\u8981\u7d20\u306e\u30ea\u30b9\u30c8\u3067\u8868\u73fe\u3067\u304d\u308b\u3002\u307e\u305f\u3001\u96c6\u5408\u306e\u5168\u3066\u306e\u90e8\u5206\u96c6\u5408\u306e\u96c6\u5408\u3092\u3001\u30ea\u30b9\u30c8\u306e\u30ea\u30b9\u30c8\u3067\u8868\u73fe\u3067\u304d\u308b\u3002\u4f8b\u3048\u3070\u96c6\u5408\u304c (1 2 3)\u306e\u6642\u3001\u5168\u3066\u306e\u90e8\u5206\u96c6\u5408\u306e\u96c6\u5408\u306f\u3001 (() (3) (2) (2 3) (1) (1 3) (1 2) (1 2 3) )\u3067\u3042\u308b\u3002\u96c6\u5408\u306e\u90e8\u5206\u96c6\u5408\u306e\u96c6\u5408\u3092\u4f5c\u308a\u51fa\u3059\u624b\u7d9a\u304d\u306e\u6b21\u306e\u5b9a\u7fa9\u3092\u5b8c\u6210\u3057\u3001\u306a\u305c\u3046\u307e\u304f\u884c\u304f\u304b\u3001\u660e\u89e3\u306b\u8aac\u660e\u305b\u3088\u3002 (define (subsets s) (if (null? s) (list '()) (let ((rest (subsets (cdr s)))) (append rest (map <??> rest))))) \u3010\u89e3\u7b54\u3011 \u3044\u3084\u301c\u3001\u3068\u2026","height":"190"}