PythonプログラマーのためのCommon Lispコード解説 04
### 4. root-domain 関数 ypooo.hatenablog.com (defun root-domain (url) (handler-case (let* ((uri (puri:parse-uri url)) (host (or (puri:uri-host uri) "")) (parts (split-sequence #\. host)) (n (length parts))) (cond ((<= n 2) host) ((and (>= n 3) (member (format nil "~A.~A" (nth (- n 2) parts) (nth (-…
