{"html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fhigepon.hatenablog.com%2Fentry%2F20060429%2F1145889137\" title=\" \u95a2\u6570\u578b\u8a00\u8a9e\u306e\u52c9\u5f37\u306bSICP\u3092\u8aad\u3082\u3046 - (21) 2\u7ae0 - \u30c7\u30fc\u30bf\u306b\u3088\u308b\u62bd\u8c61\u306e\u69cb\u7bc9 - 2.3.2 (89-90\u30da\u30fc\u30b8) - higepon blog\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","published":"2006-04-29 23:32:17","description":"\u9806\u5e8f\u3065\u3051\u3089\u308c\u306a\u3044\u30ea\u30b9\u30c8\u3068\u3057\u3066\u306e\u96c6\u5408 (define (element-of-set? x set) (cond ((null? set) #f) ((equal? x (car set)) #t) (else (element-of-set? x (cdr set))))) (define (adjoin-set x set) (if (element-of-set? x set) set (cons x set)))\u3061\u306a\u307f\u306b intersection = \u300c\u8ad6\u7406\u7a4d\u300d\u3067\u3059\u3002 (define (intersection-set set1 set2) (cond ((or (null? set1)\u2026","author_name":"higepon","title":" \u95a2\u6570\u578b\u8a00\u8a9e\u306e\u52c9\u5f37\u306bSICP\u3092\u8aad\u3082\u3046 - (21) 2\u7ae0 - \u30c7\u30fc\u30bf\u306b\u3088\u308b\u62bd\u8c61\u306e\u69cb\u7bc9 - 2.3.2 (89-90\u30da\u30fc\u30b8)","image_url":"http://images-jp.amazon.com/images/P/489471163X.09.MZZZZZZZ.jpg","version":"1.0","height":"190","blog_url":"https://higepon.hatenablog.com/","blog_title":"higepon blog","url":"https://higepon.hatenablog.com/entry/20060429/1145889137","provider_name":"Hatena Blog","categories":["Scheme","SICP"],"type":"rich","provider_url":"https://hatena.blog","author_url":"https://blog.hatena.ne.jp/higepon/","width":"100%"}