{"width":"100%","height":"190","published":"2008-03-26 05:24:23","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fwww.yasuhisay.info%2Fentry%2F20080326%2F1206476663\" title=\"\u30cd\u30b9\u30c8\u3057\u305f\u30ea\u30b9\u30c8\u306e\u64cd\u4f5c - yasuhisa&#39;s blog\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","blog_title":"yasuhisa's blog","blog_url":"https://www.yasuhisay.info/","author_url":"https://blog.hatena.ne.jp/syou6162/","categories":["Gauch"],"url":"https://www.yasuhisay.info/entry/20080326/1206476663","provider_name":"Hatena Blog","author_name":"syou6162","title":"\u30cd\u30b9\u30c8\u3057\u305f\u30ea\u30b9\u30c8\u306e\u64cd\u4f5c","type":"rich","version":"1.0","image_url":null,"provider_url":"https://hatena.blog","description":"\u30e1\u30e2\u3067\u3059\u3002 flatten \u5b66\u7fd2\u7528\u30c7\u30fc\u30bf\u4f5c\u6210 - \u4e3b\u306b\u30a2\u30eb\u30b4\u30ea\u30ba\u30e0\u306e\u5b9f\u9a13\u65e5\u8a8c (define (flatten ls) (cond ((null? ls) '()) ((pair? ls) (append (flatten (car ls)) (flatten (cdr ls)))) (else (list ls)))) LISP Scheme Part8 (define (flatten a) (if (list? a) (apply append (map flatten a)) (list a))) \u306a\u304b\u306a\u304b\u5909\u614b\u306a\u30b3\u30fc\u30c9\u3067\u3059\u3088\u306d\u3002 deep-copy-list \u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0Gauche\u2026"}