Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defun each-other (list n)
- (cond ((null list) nil)
- ((= n 0) (cons (car list) (each-other (cdr list) 1)))
- (t (each-other (cdr list) 0))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement