lisp - 如何检查列表是否是 lisp 中的回文？

Question

我想通过比较第一个元素和最后一个元素，第二个元素和最后一个元素之前的元素等来测试这个列表是否是回文

(setq l '(1 5 7 8 8 7 5 1))
(defun f (l)
  (cond ((null l) 0)
        ((atom l) l)
        (if       (equal (car l) (car(cdr l))))

Answer 1

用这种方式比较它们有什么理由吗？如果没有，使用 reverse 函数会更容易:

(defun palindrome-p (l)
  (equal l (reverse l)))