{"html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Ftsz.hatenadiary.org%2Fentry%2F20080317%2F1205767376\" title=\" P01: \u6700\u5f8c\u306econs cell\u3092\u898b\u3064\u3051\u308b - tsz\u306e\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>","type":"rich","url":"https://tsz.hatenadiary.org/entry/20080317/1205767376","version":"1.0","blog_url":"https://tsz.hatenadiary.org/","published":"2008-03-17 00:22:56","width":"100%","height":"190","image_url":null,"categories":["L-99","Common Lisp"],"title":" P01: \u6700\u5f8c\u306econs cell\u3092\u898b\u3064\u3051\u308b","provider_url":"https://hatena.blog","description":"PAIP\u8aad\u66f8\u4f1a\u3067\u77e5\u308a\u5408\u3063\u305fid:g000001\u3055\u3093\u304b\u3089\u3001L-99\u3092\u52e7\u3081\u3089\u308c\u305f\u306e\u3067\u6311\u6226\u3057\u3066\u307f\u308b\u3002 \u53d6\u308a\u3042\u3048\u305a1\u554f\u76ee\u304b\u3089\u3002do\u3067\u5b9f\u88c5\u3057\u3066\u307f\u308b\u3002 ;;; ;;; P01 (*) Find the last box of a list. ;;; Example: ;;; * (my-last '(a b c d)) ;;; (D) (defun my-last (list) (do ((l list (cdr l))) ((not (consp (cdr l))) l))) (my-last '(1 2 3)) ; => 3 (my-last '(1 2 . 3)) ; => (2 . 3) (my-\u2026","author_url":"https://blog.hatena.ne.jp/tsz/","author_name":"tsz","provider_name":"Hatena Blog","blog_title":"tsz\u306e\u65e5\u8a18"}