vi lab 6

(defun presmetaj (l)
    (cond
    ((eq (cadr l) '+) (+ (car l) (caddr l)))
    ((eq (cadr l) '-) (- (car l) (caddr l)))
    ((eq (cadr l) '*) (* (car l) (caddr l)))
    ((eq (cadr l) '/) (/ (car l) (caddr l)))
    (T NIL)
    )
)

(presmetaj '(3 + 4))
(presmetaj '(3 * 4))
(presmetaj '(3 - 4))
(presmetaj '(3 / 4))
(presmetaj '(3.0 / 4.0))

(defun zameni (l)
    (append (butlast l) (cons (reverse l) NIL))
)

(zameni '(a b c d))

(defun par (a b)
    (cond
    ((null b) (cons a NIL))
    ((< a b) (list a b))
    (T (list b a))
    )
)

(defun podzagradi (l)
    (cond
    ((null l) NIL)
    (T (cons (par (car l) (cadr l)) (podzagradi (cddr l))) )
    )
)

(podzagradi '(10 7 23 15 11 30 55))

(defun funnyR (i fmin1 fmin2 k)
    (cond
    ((> i k) fmin1)
    ((= (mod i 2) 0) (funnyR (+ i 1) (* 2 fmin1) fmin1 k) )
    ((= (mod i 2) 1) (funnyR (+ i 1) (+ fmin1 fmin2) fmin1 k) )
    )
)
(defun funny (k)
    (funnyR 1 1 0 k)
)

(funny 5)
(funny 19)

(defun vmetniVoPodredena (a l)
    (cond
    ((null l) (list a))
    ((< a (car l)) (cons a l))
    (T (cons (car l) (vmetniVoPodredena a (cdr l)) ))
    )
)

(vmetnivopodredena 5 '(2 4 6 8))

(defun sortiraj (l)
    (cond
    ((null l) NIL)
    (T (vmetniVoPodredena (car l) (sortiraj (cdr l))))
    )
)

(sortiraj '(4 3 1 2 1 5))
(sortiraj '())

(defun vmetni (a mnoz)
    (cond
    ((null (member a mnoz)) (cons a mnoz))
    (T mnoz)
    )
)