FPR_LISP_V12

(defun stvori_knjigu (naslov autor kategorija)(list (list 'naslov naslov) (list ' autor autor) (list 'kategorija kategorija))
//napravili smo proceduru koja pravi strukturu knjiga
(stvori-knjigu 'NaslovNeki 'ImeAutora 'KategorijaNeka))
//stvaranje liste sa 3 elementa sa parovima
(defun uzmi-naslov(knjiga) (second (assoc 'naslov knjiga)))
//geter za naslov
(setf knjiga1 (stvori_knjigu 'Naslov1 'ImeAutora1 'Kategorija1))
(uzmi-naslov knjiga1)
>NASLOV1
(defun uzmi-autora(knjiga) (second (assoc 'autor knjiga)))
//geter za autora... isto tako bi bilo za kategoriju

(defun promeni-autora (knjiga autor)(if (equal 'autor (first (first knjiga)))
    (cons (list 'autor autor) (rest knjiga))
    (cons (first knjiga) (promeni-autora (rest knjiga) autor)))) //rekurzivno idemo dok ne stignemo do autora
//seter za autora jesus..............

//napravi da se vraca knjiga po naslovu iz liste knjiga

//napravi da se vracaju sve knjige po istoj kategoriji