ВИ Лаб6

;---
;zad1
;---

(defun presmetaj (lista)

    (if (string-equal (CADR lista) "+")
        (+ (CAR lista) (CADDR lista))
         (if (string-equal (CADR lista) "-")
        (- (CAR lista) (CADDR lista))

           (if (string-equal (CADR lista) "*")
        (* (CAR lista) (CADDR lista))

                 (if (string-equal (CADR lista) "/")
        (/ (CAR lista) (CADDR lista))
    )
    )

           )
      )

)

(presmetaj '(1.0 / 2.5))

;---
;zad2
;---

(defun prevrti (lista novalista)

  (if (null lista)
    novalista

    (prevrti (CDR lista) (APPEND (list (CAR lista)) novalista))

    )

)

(defun zameni (lista novalista staralista)

  (if (null (CADR lista))
    (APPEND novalista (prevrti staralista '()))

  (zameni (CDR lista) (APPEND novalista (list (CAR lista))) staralista)
  )
)
(zameni '(1 2 3 4) '() '(1 2 3 4))


;---
;zad3
;---

(defun proveri (broj lista)

  (if (EQUAL broj (CAR lista))
    1
    0
    )
)

(defun broj (atomm lista zbir)
  (if (null lista)
    zbir
    ;print lista
    (broj atomm (CDR lista) (+ zbir (proveri atomm (CAR lista))))

    )
  )

(broj 1 '((3 2) (1 3)) 0)

;---
;zad4
;---

(defun sredi (broj1 broj2)
  (if (null broj1)
    (list broj2)
    (if (null broj2)
      (list broj1)
    (if (> broj1 broj2)
    (list broj2 broj1)
    (list broj1 broj2)
    )
    )
    )

)


(defun podzagradi (lista novalista)
  (if (null lista)
    novalista
    (podzagradi (CDDR lista) (APPEND novalista (list(sredi (CAR lista) (CADR lista)))))
    )

  )

(podzagradi '(3 1 5 2 6) '())

;---
;zad5
;---

(defun funny (broj)
  (if (= broj 1)
    1
    (if (= (mod broj 2) 0)
      (* 2 (funny (- broj 1)))

      (+ (funny (- broj 1)) (funny (- broj 2)))
      )
   )
  )

(funny 19)

;---
;zad6
;---

(defun najmal (lista naj)

  (if (null lista)
    naj
    (if (< (CAR lista) naj)
      (najmal (CDR lista) (CAR lista))
      (najmal (CDR lista) naj)
      )
    )

 )

(defun izvadi (el lista noval)
   (if (equal el (CAR lista))
     (APPEND noval (CDR lista))
     (
       izvadi el (CDR lista) (append noval (list (CAR lista)))
       )
     )
)

(defun procesiraj (noval lista)

  (if (null lista)
     noval
    (procesiraj (APPEND noval (list (najmal lista (CAR lista)))) (izvadi (najmal lista (CAR lista)) lista '()))
    )
  )


(procesiraj '() '(5 1 7 3 8))

;---
;zad7
;---

(defun proveri (el lista)
  (if (null lista)
    NIL
    (if (equal (CAR lista) el) T
      (proveri el (CDR lista))
      )
    )
  )

(defun vmetni (el lista)
  (if (proveri el lista)
    lista
    (APPEND (list el) lista)

    )
  )

(vmetni 4 '(2 3))