8 lines
198 B
EmacsLisp
8 lines
198 B
EmacsLisp
;; P06 (*) Find out whether a list is a palindrome.
|
|
(defun palindrome (lst)
|
|
(equal lst (reverse lst)))
|
|
|
|
(palindrome '(x a m a x)) ; t
|
|
(palindrome '(a n n a)) ; t
|
|
(palindrome '(f a b i o)) ; nil
|