Бриши последен непарен - Август 2016

(defun otstrani (lista flag)
    (cond
        ((null lista) nil)
        ((listp (car lista))(cons (otstrani (car lista) 0)(otstrani (cdr lista) flag)))
        ((and (oddp (car lista))(= flag 0))(otstrani (cdr lista) 1))
        (t (cons (car lista)(otstrani (cdr lista) flag)))
        )
    )

(defun brisiPosledenNeparen (lista)
    (reverse (otstrani(reverse lista) 0))
    )
(print (brisiPosledenNeparen '(1 2 3 4 (2 3 (3 3 3) 4) 3 4)))