{"author_name":"Pocket7878_dev","url":"https://tech-blog.pocket7878.com/entry/20120709/1341842447","author_url":"https://blog.hatena.ne.jp/Pocket7878_dev/","provider_name":"Hatena Blog","title":"ICPC2011 ProblemB","version":"1.0","blog_url":"https://tech-blog.pocket7878.com/","height":"190","categories":["ICPC","Lisp"],"provider_url":"https://hatena.blog","width":"100%","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Ftech-blog.pocket7878.com%2Fentry%2F20120709%2F1341842447\" title=\"ICPC2011 ProblemB - Let&#39;s write \u03b2\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","published":"2012-07-09 23:00:47","image_url":null,"blog_title":"Let's write \u03b2","description":"\u3061\u3087\u3063\u3068\u6642\u9593\u304c\u3068\u308c\u306a\u3044\u306e\u3067\u7c21\u5358\u306a\u7269\u3067\u3059\u307f\u307e\u305b\u3093\u3002 (defun balancingp (str) (let ((ch-list (coerce str 'list))) (labels ((%balancing-p (ch-list stack) (if (char= #\\. (car ch-list)) (null stack) (cond ((or (char= #\\[ (car ch-list)) (char= #\\( (car ch-list))) (%balancing-p (cdr ch-list) (cons (car ch-list) stack))) ((char= #\\) \u2026","type":"rich"}