[VI] lab 6

; prva

(defun presmetaj (el)

    (setq x (first el))
    (setq y (third el))
    (setq op (second el))

    (cond
        ((eq op '+) (+ x y))
        ((eq op '-) (- x y))
        ((eq op '/) (/ x y))
        ((eq op '*) (* x y))
    )

)

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

; vtora

(defun zameni (lista)
    (cond

        ((not (null lista))
            (setq prev (reverse lista))
            (setq tmp (reverse (cdr prev)))
            (append tmp (list prev))
        )
    )
)

(print (zameni '(a b c d е)))

; treta

(defun broj (x listi)
    (brojPom x listi 0)
)

(defun brojPom (x listi count)
    (cond
        ((null listi) count)
        (t
            (setq tmp (car listi))
            (if (eq (car tmp) x) (setq count (+ count 1)))
            (brojPom x (cdr listi) count)
        )
    )
)

(print (broj 1 '((1 7) (2 8) (3 5) (1 10) (1 11))))

; cetvrta

(defun podzagradi (lista)
    (cond
        ((null lista) nil)
        ((eq (cdr lista) nil) (cons (list (car lista))  (podzagradi (cddr lista))))
        (t
            (cond
                ((<= (first lista) (second lista))
                    (setq x (first lista))
                    (setq y (second lista)))
                (t
                    (setq y (first lista))
                    (setq x (second lista)))
            )

            (cons (list x y) (podzagradi (cddr lista)))
        )
    )
)

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

; sedma

(defun vmetni (a mnoz)
    (if (member a mnoz) (setq mnoz (remove a mnoz)))
    (cons a mnoz)
)

(print (vmetni 5 '(2 3 4)))