小编nes*_*een的帖子

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

(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))))