Определить функцию, возвращающую копию данного списка, из которой удалены нечетные элементы

(defun task (lst &optional (f t))
  (cond ((null lst) nil)
        (f (task (cdr lst) (not f)))
        (t (cons (car lst) (task (cdr lst) (not f))))))
 
==> task
 
(task '(3 1 4 1 5 9 2 6))
 
==> (1 1 9 6)

(loop
            for (a . b) on '(3 1 4 1 5 9 2 6) by #'cddr
            while b collect (car b))

(loop
            for (a . (b . c)) on '(3 1 4 1 5 9 2 6) by #'cddr
            while b collect b)

CL-USER> (loop
            for (a . (b . c)) on '(3 1 4 1 5 9 2 6) by #'cddr
            while b do (format t "~a || ~a || ~a~%" a b c))
3 || 1 || (4 1 5 9 2 6)
4 || 1 || (5 9 2 6)
5 || 9 || (2 6)
2 || 6 || NIL

(defun task (lst)
  (mapcar 'car (remove-if #'(lambda (x) (oddp (cadr x))) (mapcar 'list lst (range 1 (length lst))))))
 
==> task
 
(task '(3 1 4 1 5 9 2 6))
 
==> (1 1 9 6)

(defun task (lst)
           (mapcar 'car 
                   (remove-if 
                    #'(lambda (x) (oddp (cadr x))) 
                    (mapcar 'list 
                            lst 
                            (range 1 (length lst))))))

(defun task (lst)
  (read-from-string
    (format nil "(~{~[~:evenp~;~:;~a~]~^ ~})" lst)))

(defun F (ls)
  (mapcan #'(lambda (x y) (if (zerop x) (list y)))
          (let ((w (list 1 0))) (prog1 w (rplacd (last w) w)))
          ls))
 
> (F '(3 1 4 1 5 9 2 6))
(1 1 9 6)

(defun F (l &optional s flag)
  (if l
    (if (null flag) 
      (F (butlast l) (push (car (last l)) s) t)
      (F (butlast l) s nil))
    s))
 
(F '(3 1 4 1 5 9 2 6))
 
==> (1 1 9 6)