VI_pKol_2014_t2g1.pdf
1.
(defun deliviSoTri (lista)
    (cond
      ((null lista) nil)
      ((= (mod (car lista) 3) 0) (cons (car lista) (deliviSoTri (cdr lista))))
      (t (deliviSoTri (cdr lista)))
))


(defun parenBrojPati (lista)
    (cond
      ((null lista) nil)
      ((evenp (count (car lista) lista)) (cons (car lista) (parenBrojPati (remove (car lista) lista))))
      (t (parenBrojPati (remove (car lista) lista)))
))


(defun presmetaj(lista elem)
    (cond
      ((null lista) nil)
      ((oddp (count elem lista)) (delivisotri lista))
      (t (parenbrojpati lista))
))
__________________________________________________________________________________________________________________________________


2.
a)
(defun najmalkudva (lista)
  (cond
    ((null lista) nil)
    ((>= (count (car lista) lista) 2) (cons (car lista) (najmalkudva (remove (car lista) lista))))
    (t (najmalkudva (cdr lista)))
   )
)


b)
(defun unnest(x)
    (labels ((rec (x acc)
                  (cond ((null x) acc)
                        ((atom x) (cons x acc))
                    (t (rec (car x) (rec (cdr x) acc))))))
      (rec x nil)))


(defun najmalkudva (lista)
  (cond
    ((null lista) nil)
    ((>= (count (car lista) lista) 2) (cons (car lista) (najmalkudva (remove (car lista) lista))))
    (t (najmalkudva (cdr lista)))
   )
)

(najmalkudva (unnest '(2 (6 8) (1 2 (2 4) 6) ((1) 2))))