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

(defun replace-vowels (s r &optional (w '("a" "e" "i" "o" "u")))
  (if w (replace-vowels (replace-lets s (car w) r) r (cdr w)) s))
 
(defun replace-lets (s p r &aux (e (search p s)))
  (if e
      (concatenate
       'string 
       (subseq s 0 e)
       r
       (replace-lets (subseq s (1+ e)) p r))
      (concatenate 'string nil s)))
 
> (replace-vowels "aberikodubra" "z")
"zbzrzkzdzbrz"

;; вспомогательная функция подсчета потомков
 
(defun count-desc (tree)
  (cond ((null tree) 0)
        (t (+ (if (cadr tree) 1 0) 
              (if (caddr tree) 1 0)
              (count-desc (cadr tree))
              (count-desc (caddr tree)))))) 
 
==> count-desc
 
;; список вершин дерева, имеющих менее 4-х потомков
 
(defun counter (tree &optional r)
  (cond ((null tree) r)
        ((< (count-desc tree) 4) (counter (cadr tree) (cons (car tree) (counter (caddr tree) r))))
        (t (counter (cadr tree) (counter (caddr tree) r)))))
  
==> counter
 
(counter '(1 (2 (5 nil nil) nil) (3 (7 nil nil) (6 (9 nil nil) (8 nil nil)))))
 
==> (5 2 7 9 6 8)
 
;; Собственно решение
 
(defun task (tree)
  (length (counter tree)))
 
==> task
 
(task '(1 (2 (5 nil nil) nil) (3 (7 nil nil) (6 (9 nil nil) (8 nil nil)))))
 
==> 6

(defun заменить-гласные-на-а (stri)
 (let ((res (list stri)))
  (iter (for буква in '("a" "о" "у" "е" "и" "ы" "я" "э"))
    (push (strRep (car res) буква "a") res))
  (car res)))
 
==> заменить-гласные-на-а
 
(заменить-гласные-на-а "Привет мир!")
 
==> "Прaвaт мaр!"

(defun replace-vowels (s r &optional (w '("a" "e" "i" "o" "u")))
  (if w (replace-vowels (replace-lets s (car w) r) r (cdr w)) s))
 
(defun replace-lets (s p r &aux (e (search p s)))
  (if e
      (concatenate
       'string 
       (subseq s 0 e)
       r
       (replace-lets (subseq s (1+ e)) p r))
      s))
 
> (replace-vowels "aberikodubraq" "z")
"zbzrzkzdzbrzq"