畳み込みを使ったコードが出てきてたのを見て、CLで書いてみた。 (defun compact-number-list (x) (reduce #'(lambda(n r) (let ((c (car r))) (if (eql (1+ n) (or (safe-car c) c)) `((,n .,(or (safe-cdr c) c)) ,@(cdr r)) `(,n ,@r)))) `(,@x nil) :fro…