transformiraj-neparen

(defun transformiraj-neparen (L)
    (clear_duplicates (transform_tmp L L '()))

)

(defun transform_tmp (L1 L2 returnL)
    (cond
        ((null L1) returnL)
        ((oddp (broj_na_pojavuvanja L2 (car L1) 0)) (append returnL (list (car L1)) (transform_tmp (cdr L1) L2 returnL)))
        (t (transform_tmp (cdr L1) L2 returnL))

    )
)

(defun clear_duplicates (L)
    (cond
        ((null L) nil)
        ((member (car L) (cdr L)) (clear_duplicates (cdr L)))
        (t (cons (car L) (clear_duplicates (cdr L))))
    )
)

(defun broj_na_pojavuvanja (L elem brojac)
    (cond
        ((null L) brojac)
        ((eq (car L) elem) (broj_na_pojavuvanja (cdr L) elem (+ 1 brojac)))
        (t (broj_na_pojavuvanja (cdr L) elem brojac))
    )
)



(print (transformiraj-neparen '(1 5 3 5 4 1 5 8 3 1 4))) ;; --> (1 5 8)