логичко - 3 (Парно појавување)

(defun pojavuvanje (element lista)
    (cond
        ((null lista) 1)
        ((equal element (car lista))(+ 1 (pojavuvanje element (cdr lista))))
        (t (pojavuvanje element (cdr lista)))
        )
    )

(defun brisiParni (lista pomlista)
    (cond
        ((null lista) nil)
        ((listp (car lista))(cons (brisiParni (car lista) pomlista)(brisiParni (cdr lista) pomlista)))
        ((evenp (pojavuvanje (car lista) pomlista))(brisiParni (cdr lista)(append (list (car lista)) pomlista)))
        ((oddp (pojavuvanje (car lista) pomlista))(remove 'nil(cons (car lista)(brisiParni (cdr lista)(append (list (car lista)) pomlista)))))
        )
    )

(print (brisiParni '(1 2 (3 1 (3) 1 (4 2 (2 4)))1 2) nil))