{"provider_url":"https://hatena.blog","version":"1.0","categories":["\u8aad\u66f8\u30ce\u30fc\u30c8"],"blog_url":"https://www.shigemk2.com/","type":"rich","height":"190","provider_name":"Hatena Blog","url":"https://www.shigemk2.com/entry/20120212/1329048818","published":"2012-02-12 21:13:38","width":"100%","description":"\u524d\u56de \u30ea\u30b9\u30c8\u904a\u3073 7-5 while \u3068 \u518d\u5e30 - by shigemk2\u307e\u305a\u306f\u3053\u308c\u3092\u898b\u3066\u307b\u3057\u3044\u3002 \u524d\u306b\u5b9f\u88c5\u3057\u305frepl\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u3067\u3042\u308b(\u4e0b\u306b\u3082\u66f8\u3044\u305f) \u30ea\u30b9\u30c8\u904a\u3073 7-2 while - by shigemk2 (defun repl (lst old new) ;; *1 (let (tmp ret) (while lst (cond ((eq old (car lst)) (setq tmp (cons new tmp))) (t (setq tmp (cons (car lst) tmp)))) (setq lst (cdr lst))) ;; *2 (while tmp (setq\u2026","author_url":"https://blog.hatena.ne.jp/shigemk2/","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fwww.shigemk2.com%2Fentry%2F20120212%2F1329048818\" title=\"\u30ea\u30b9\u30c8\u904a\u3073 8-1 cons \u306e\u7279\u6027 - by shigemk2\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","author_name":"shigemk2","title":"\u30ea\u30b9\u30c8\u904a\u3073 8-1 cons \u306e\u7279\u6027","blog_title":"by shigemk2","image_url":"http://ecx.images-amazon.com/images/I/51BZ2NQA92L.jpg"}