Lisp v1

----------------------------
1.
(defun umetni(el n lista)
            (
                if (zerop n) (cons el lista)
                    (cons (car lista) (if (<= (1- n) 0) (cons el (cdr lista)) (umetni el (1- n) (cdr lista))))

            )
)
----------------------------
2.
(defun asocijativna(lista)
                   (
                    if (null lista) (princ "jeste")
                                    (if (equal (length(car lista)) 2) (asocijativna(cdr lista)) (princ "nije"))

                   )

)

(defun asocijativna(lista)
                   (
                    if (null lista) (princ "jeste")
                                    (if (and (not (atom (car lista))) (equal (length(car lista)) 2)) (asocijativna(cdr lista)) (princ "nije"))

                   )

)
----------------------------
3.
(defun duzina(lista)
             (
                cond ((null lista) '0)
                    (t (1+ (duzina(cdr lista))))
             )
)

(defun duzina(lista)
            (
                if (not (null lista)) (+ 1 (duzina(cdr lista))) '0
            )
)
----------------------------
4.
(defun pozitivni(lista)
            (
                if (null lista) '()
                                (if (> (car lista) 0) (append (list(car lista)) (pozitivni(cdr lista))) (pozitivni(cdr lista)))
            )
)
----------------------------
5.
(defun zbir(lista)
            (
                cond ((null lista) 0)
                    ((+ (car lista) (zbir(cdr lista))))
            )
)

(defun zbir(lista)
            (
                cond ((null lista) 0)
                    ((if (not ( atom (car lista))) (+ '0 (zbir(cdr lista))) (+ (car lista) (zbir(cdr lista))) ))
            )
)
--------------------
6.
(defun prebroj(lista)
            (
                if (listp(car lista)) (prebroj(append (cdr lista) (list(length(car lista))))) lista
            )
)
----------------------------
7.
(defun promeni(n lista)
            (
                if (null lista)
                    '()
                    (if (> n 0)
                        (append (list(1+ (car lista))) (promeni (1- n) (cdr lista)))
                        (append (list(1- (car lista))) (promeni (1- n) (cdr lista)))
                    )
            )
)
----------------------------
8.
(defun neparni(lista)
            (
                 if (null lista)
                     '()
                     (append (list(car lista)) (neparni(cdr (cdr lista))))

            )
)

(defun neparni(lista)
            (
                 if (null lista)
                     '()
                     (append (list(car lista)) (neparni(cddr lista)))

            )
)
----------------------------
9.
(defun bitp(lista)
        (
            if (null lista) 0
                (mod (+ (car lista) (bitp(cdr lista))) 2)
        )
)
----------------------------
10.
;nije moje resenje !!!!!!!!!!!!!!!!!!!!!!!! radi za +
(defun progres (n k)
    (if (= 1 n)
        (list '1)
        (append (progres (1- n) k) (list (+ (* (- n 1) k) 1)))
        )
    )
; za geometrijskui *
(defun progres (n k)
    (if (= 1 n)
        (list '1)
        (append (progres (1- n) k) (list (expt k (- n 1)) ))
        )
    )

(defun progres (n k p)
    (
        cond
        ((equal p 'a) (if (= 1 n) (list '1) (append (progres (1- n) k p) (list (+ (* (- n 1) k) 1)))))
        ((equal p 'g) (if (= 1 n) (list '1) (append (progres (1- n) k p) (list (expt k (- n 1)) ))))
    )
)
----------------------------
11.
;nije moje resenje !!!!!!!!!!!!!!!!!!!!!!!!!!!
(defun prevedi(broj)
    (
        if (or (= broj 0) (= broj 1)) (list broj)
            ( append ( prevedi (/ (- broj (mod broj 2)) 2) ) (list (mod broj 2)))
    )
)
----------------------------
12.
(defun dodajs(el lista)
    (
        if (or (null lista) (< el (car lista))) (cons el lista)
            (cons (car lista) (dodajs el (cdr lista)))
    )
)
----------------------------
13.
;ne radi #########################
(defun razmeni(lista)
        (
            if (null lista) 0
                (if (>= (car lista) (car(cdr lista))) (cons (car lista) (razmeni(cdr lista))) (cons (razmeni(cdr lista)) (car lista)))
        )
)

(defun razmeni(lista)
    (
        if (null lista) 0
            (if (< (car lista) (cadr lista) ) ( (cons (cadr lista) ) (razmeni (cdr lista)) ) (razmeni (cdr lista)) )
    )
)
(defun razmeni(lista)
    (
        if (>= (length lista) 2)
        (
            if ( < (car lista) (cadr lista) )
            (
                ;swap prvi i drugi
                cons (list(cadr lista)) (razmeni (cdr lista))

                cons( ((cons (caddr lista) (car lista) )) ((cddr lista)) )
            )
            (

            )
        )
        (

        )
    )
)
----------------------------
14.
(defun parni(lista)
    (
        if (null lista)
             0
             (if (equal(mod (car lista) 2) 0)
                            (1+ (parni(cdr lista)))
                            (parni(cdr lista)))
    )
)
----------------------------
15.
(defun atomi(lista)
    (
        if (null lista) '()
            (if (atom(car lista)) (append (list(car lista)) (atomi(cdr lista))) (atomi(cdr lista)))
    )
)