Трансформирај непарен

(defun pomosna (lista pomosna_lista brojac)
    (cond
        ((null lista) nil)
        ((and(null pomosna_lista)(oddp brojac))(cons (car lista)(pomosna (remove (car lista)(cdr lista))(cdr lista) 0)))
        ((and(null pomosna_lista)(evenp brojac))(pomosna (remove (car lista) (cdr lista))(cdr lista) 0))
        ((eq (car lista)(car pomosna_lista))(pomosna lista (cdr pomosna_lista)(+ 1 brojac)))
        ((not(eq (car lista)(car pomosna_lista)))(pomosna lista (cdr pomosna_lista) brojac))
    )
)


(defun flatten (lista)
    (cond
        ((null lista) nil)
        ((listp (car lista))(append (flatten (car lista))(flatten (cdr lista))))
        (t (append (list (car lista))(flatten (cdr lista))))
        ))




(defun transformiraj-neparen (lista)
    (pomosna lista lista 0)
)


(print (transformiraj-neparen (flatten'(2 (6 8) (1 4 2 (2 1) 6) ((1) 4)))))