Парни цифри, парни позиции

(defun parni (lista)
 (pom1 lista 1)
)

(defun pom1 (lista brojac)
 (cond
  ((null lista) nil)
  ((proverka_za_cifri (car lista) 1)(cons brojac (pom1 (cdr lista)(+ 1 brojac)))) ;;ako se izvrsit funkcijata togas zalepi go ko car
  (t (pom1 (cdr lista)(+ 1 brojac))))
)



(defun proverka_za_cifri (n i)
 (cond
  ((eq n 0) t)
  ((and (eq (mod i 2) 0)(not (eq(mod(mod n 10)2)0))) nil)
  (t (proverka_za_cifri (floor (/ n 10))(+ 1 i))))
 )


(print(parni '(21 12 33 422 13 4215)))