Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defun my-but-last (lst)
- "Finds the last and second-to-last atoms of lst."
- (if (null lst)
- nil
- (if (null (cdr lst))
- lst
- (labels ((check-cddr (lst)
- (if (null (cddr lst))
- lst
- (check-cddr (cdr lst)))))
- (check-cddr lst)))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
