vestacka lab 1

;; prva
(cons (cons 'A (cons 'B nil)) (cons 'C nil))  ;;; ((A B) C)
(list (list 'A 'B) 'C)                ;;; ((A B) C)

;; vtora

(setq l1 '((A B) C))
(setq l2 '(A (B C)))
(setq rez (list (car l1) (car l2)))

;; treta

(setq l1 '((A B) C D))
(setq x 10)

(setq glava (car l1))
;(setq tret (car (cdr (cdr l1))))
(setq tret (caddr l1))

(setq rez (list glava x tret))

;; cetvrta

(setq l1 '(5 1 6 3))

(setq prv (car l1)))
(setq vtor (cadr l1))
(setq tret (caddr l1))

(setq rez (+ prv vtor tret))

;; petta

(setq x '((5 1) 6 3))
(setq y '(1 2 3))

(append x y)
(reverse x)
(last x)
(third x)

;; shesta (termin 1)

(setq x '(1 2 3 4))

(setq pal x)
(setq tmp (cdr (reverse x)))
(append pal tmp)

;; shesta (termin 2)