{"provider_name":"Hatena Blog","image_url":null,"type":"rich","author_name":"shammer","description":"Lisp \u3067\u4e71\u6570\u30ea\u30b9\u30c8\u3092\u4f5c\u308b - Shammerism\u306e\u7d9a\u304d\u7b2c\u4e00\u6bb5\u3002\u307e\u305a\u306f\u30d0\u30d6\u30eb\u30bd\u30fc\u30c8\u304b\u3089\u3002\u4e00\u756a\u6700\u521d\u306e\u5024\u3068\u6b21\u306e\u5024\u3092\u6bd4\u8f03\u3057\u3066\u3001\u5927\u304d\u3044\u65b9\u3092\u5f8c\u308d\u306b\u3072\u305f\u3059\u3089\u305a\u3089\u3057\u3066\u3044\u304d\u3001\u6700\u5f8c\u307e\u3067\u884c\u3051\u3070\u81ea\u52d5\u7684\u306b\u4e00\u756a\u5927\u304d\u3044\u3082\u306e\u306f\u6700\u5f8c\u306b\u306a\u308b\u3001\u3068\u3044\u3046\u3084\u308a\u65b9\u3002 (defun bubble-sort (l) (labels ((compare (n l) (if (null l) n (compare (max n (car l)) (cdr l))))) (format t \"~A~%\" l) (if (null l) nil (let (last-element) (setf last-element (compare (c\u2026","provider_url":"https://hatena.blog","published":"2013-02-14 00:00:00","height":"190","title":"Lisp\u3067\u30d0\u30d6\u30eb\u30bd\u30fc\u30c8","blog_title":"Shammer's Philosophy","author_url":"https://blog.hatena.ne.jp/shammer/","url":"https://shammerism.hatenadiary.com/entry/20130214/p1","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fshammerism.hatenadiary.com%2Fentry%2F20130214%2Fp1\" title=\"Lisp\u3067\u30d0\u30d6\u30eb\u30bd\u30fc\u30c8 - Shammer&#39;s Philosophy\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","blog_url":"https://shammerism.hatenadiary.com/","categories":["Lisp"],"version":"1.0","width":"100%"}