Вывести в виде отдельных списков нечетные и четные элементы списка Y1 (нумерация элементов начинается с 0)

(defun split-list (lst &optional (odd-list nil) (even-list nil))
   (cond ((null lst) (list odd-list even-list))
         ((oddp (car lst)) (split-list (cdr lst) (cons (car lst) odd-list) even-list))
         (t (split-list (cdr lst) odd-list (cons (car lst) even-list)))))
 
 
   
 
==> split-list
 
(split-list '(1 2 3 4 5 6 7 8))
 
==> ((7 5 3 1) (8 6 4 2))

(defun odd/even (w)
  (loop for i in w
        if (oddp i)
        collect i into odds
        else collect i into evens
        finally (return (values odds evens))))
 
> (odd/even '(1 2 3 4 5 6))
(1 3 5)
(2 4 6)

(defun even-odd (lst)
 (labels ((even (lst)
  (cond ((null lst) nil)
        ((/= (rem (car lst) 2) 0) (even (cdr lst)))
        (t (cons (car lst) (even (cdr lst))))))
 (odd (lst)
  (cond ((null lst) nil)
        ((= (rem (car lst) 2) 0) (odd (cdr lst)))
        (t (cons (car lst) (odd (cdr lst)))))))
     (list (even lst) (odd lst))))
 
>(even-odd '(1 2 3 4 5 6))     ==>((2 4 6) (1 3 5))

(defun odd/even (w)
  (labels ((oddeven (v odds evens)
             (cond ((null v) (list (reverse odds) (reverse evens)))
                   ((oddp (car v))(oddeven (cdr v) (cons (car v) odds) evens))
                   ((oddeven (cdr v) odds (cons (car v) evens))))))
    (oddeven w nil nil)))
 
> (odd/even '(1 2 3 4 5 6))
((1 3 5) (2 4 6))

(defun odd/even (w &optional odds evens)
  (cond ((null w) (list (reverse odds) (reverse evens)))
        ((oddp (car w)) (odd/even (cdr w) (cons (car w) odds) evens))
        ((odd/even (cdr w) odds (cons (car w) evens)))))
 
> (odd/even '(1 2 3 4 5 6))
((1 3 5) (2 4 6))