Најмалку 2 повторувања

;;sekogas krajnite uslovi gore


(defun pomosna (lista kopija_lista brojac)
    (cond
        ((null lista) nil)
        ((and (null kopija_lista)(>= brojac 2))(cons (car lista)(pomosna (remove (car lista)(cdr lista))(cdr lista) 0)))
        ((and (null kopija_lista)(< brojac 2))(pomosna (remove (car lista)(cdr lista))(cdr lista) 0))
        ((eq (car lista) (car kopija_lista))(pomosna lista (cdr kopija_lista) (+ 1 brojac)))
        ((not (eq (car lista)(car kopija_lista)))(pomosna lista (cdr kopija_lista) brojac))
     )
)
(defun najmalkuDva (lista)
    (pomosna lista lista 0)
)


(print (najmalkuDva '(1 5 3 5 4 5 1 5 8 3)))