Број на елементи / парен,непарен

(defun paren_broj (lista)
    (cond
        ((null lista) nil)
        ((evenp (car lista))(cons (car lista)(paren_broj(cdr lista))))
        (t(paren_broj(cdr lista)))
        )
)

(defun edinecni_elementi (lista)
    (cond
        ((null lista) nil)
        ((member (car lista) (cdr lista))(edinecni_elementi(remove (car lista)(cdr lista))))
        ((not(member(car lista) (cdr lista)))(cons (car lista)(edinecni_elementi(cdr lista))))
        )
    )



(defun presmetaj (lista)
    (cond
        ((evenp (list-length lista)) (paren_broj lista))
        ((oddp (list-length lista))(edinecni_elementi lista))
        )
    )

(print (presmetaj '(2 4 5 7 9 11 2 2)))