{"title":"\u554f\u984c2-32","blog_url":"https://kiririmode.hatenablog.jp/","author_name":"kiririmode","version":"1.0","provider_url":"https://hatena.blog","height":"190","published":"2007-11-29 00:00:03","width":"100%","author_url":"https://blog.hatena.ne.jp/kiririmode/","type":"rich","provider_name":"Hatena Blog","description":"\u96c6\u5408\u306e\u3079\u304d\u96c6\u5408\u3092\u6c42\u3081\u307e\u3059\u3002 (define (map proc items) (if (null? items) () (cons (proc (car items)) (map proc (cdr items))))) (define (subsets s) (if (null? s) (list ()) (let ((rest (subsets (cdr s)))) (append rest (map (lambda (x) (cons (car s) x)) rest))))) \u3042\u3093\u307e\u3057\u610f\u5473\u306a\u3044\u3051\u3069\u3001\u3053\u3046\u3084\u3063\u3066\u3082\u3067\u304d\u308b\u3088\u3002 (define (subsets s) (if (null? s\u2026","blog_title":"\u7406\u7cfb\u5b66\u751f\u65e5\u8a18","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fkiririmode.hatenablog.jp%2Fentry%2F20071129%2Fp3\" title=\"\u554f\u984c2-32 - \u7406\u7cfb\u5b66\u751f\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>","url":"https://kiririmode.hatenablog.jp/entry/20071129/p3","categories":["SICP"],"image_url":null}