Парни цифри, парни позиции решение 2

(defun parni (lista)
    (pozicii lista 1)
)

(defun pozicii (lista brojac)
    (cond
        ((null lista) nil)
        ((eq (dali (car lista)) t)(cons brojac (pozicii (cdr lista)(+ 1 brojac))))
        ((not (eq (dali (car lista)) t))(pozicii (cdr lista)(+ 1 brojac)))
        )
    )

(defun dali (element)
 (cond
  ((eq element 0) t)
  ((eq (mod (mod (floor(/ element 10)) 10) 2) 0)(dali (floor (/ element 100))))
  ((not(eq (mod (mod (floor (/ element 10)) 10) 2) 0)) nil)
 ))

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