Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defun last1 (lst)
- (car (last lst)))
- (defun palin1 (lst)
- (if (equal nil lst)
- t
- (let ((start (first lst)) (finish (last1 lst)))
- (if (equal start finish)
- (palin1 (rest (butlast lst)))
- nil))))
Add Comment
Please, Sign In to add comment