ypooo https://blog.hatena.ne.jp/ypooo/ ypooo’s diary https://ypooo.hatenablog.com/ LISP 関数型 7. pdf-url-p 関数 ypooo.hatenablog.com (defun pdf-url-p (url-str) (handler-case (let* ((uri (puri:parse-uri url-str)) (path (or (puri:uri-path uri) ""))) (cl-ppcre:scan "(?i)\\.pdf($|\\?)" path)) (error () nil))) 目的: 与えられたURL文字列がPDFファイルを指しているかどうかを判定します。 Lispのコンセプト: (puri:parse-uri url-str) と (puri:uri… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fypooo.hatenablog.com%2Fentry%2F2026%2F04%2F25%2F194223" title="PythonプログラマーのためのCommon Lispコード解説 07 - ypooo’s diary" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> https://cdn-ak.f.st-hatena.com/images/fotolife/y/ypooo/20260425/20260425055449.jpg Hatena Blog https://hatena.blog 2026-04-25 19:42:23 rich https://ypooo.hatenablog.com/entry/2026/04/25/194223 1.0 100%