P06:回文であるかどうかを判定する
少し悩んだけど、簡単な方法で。
;;; ;; P06 (*) Find out whether a list a palindrome. ;; A palindrome can be read forward or backward; e.g. (x a m a x) ;; Example: ;; * (palindrome-p '(a b c b a)) ;; t ;; * (palindrome-p '(a b c b)) ;; nil (defun palindrome-p (list) (equalp list (reverse list)))