Отстрани најмал

(defun removemin (lista)
    (remove(najdi_najmal lista 99) lista)
    )

(defun najdi_najmal (lista minimum)
    (cond
        ((null lista) minimum)
        ((< (car lista) minimum)(najdi_najmal(cdr lista)(setq minimum (car lista))))
        (t (najdi_najmal(cdr lista) minimum))
    )
  )


(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))))
        )
    )


(print (removemin (flatten '(5 ((1) 3) (4) 2 3))))