https://wiki.mplicka.cz/ 2026-05-03T02:58:26+00:00 https://wiki.mplicka.cz/ https://wiki.mplicka.cz/_media/wiki/dokuwiki.svg text/html 2011-08-16T20:33:34+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.mplicka.cz/jui/cviko1?rev=1313526814&do=diff JUI - 1. cviceni (defun soucet (x y) (cond ((eq x 0) y) ( T (+ 1 (soucet (- x 1) y) ) ) ) ) (defun rozdil (x y) (cond ( (eq y 0) x) ( T (- (rozdil x (- y 1)) 1)) ) ) (defun mensirovno (x y) (cond ( (eq x 0) t) ( (eq y 0) NIL) (t (mensirovno (- x 1) (- y 1))) ) ) (defun soucin (x y) ( cond ( (eq x 1) y) ( t (soucet (soucin (- x 1) y) y)) ) ) (defun mocnina (x y) (cond ((eq y 0) 1) (t (souci… text/html 2011-08-16T20:33:35+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.mplicka.cz/jui/cviko2?rev=1313526815&do=diff JUI - 2. cviceni list neni case sensitive logicke hodnoty * pro false je NIL * pro true je T pro zruseni vyhodnoceni vyrazu se pred to dava apostrof '(+ 1 2) => (+ 1 2) (+ 1 2) => 3 (if (test) (then_kod) (else_kod) (defun vetsi (a b) (if (> a b) a b) ) (defun fact (a) (if (zerop a) 1 (* a (fact (1- a) ) ) ) ) text/html 2011-08-16T20:33:34+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.mplicka.cz/jui/cviko3?rev=1313526814&do=diff JUI - 3. cviceni ;funkce otoc, ktera otoci poradi prvku v seznamu (bez podseznamu) ;tj. (1 2 (5 4) 3) -> (3 (5 4) 2 1) (defun otoc (seznam) (cond ( (eq seznam nil) seznam) (T (cons (car (last seznam)) (otoc (butlast seznam) ) ) ) ) ) (apply adr_funkce seznam parametru) ; vola funkci (apply #'+ '(1 2 3 4)) ; #'x vraci adresu funkce + mapcar - pro kazdy prvek seznamu spusti funkci s parametry, vysledky se spoji do seznamu (mapcar adresa_funkce seznam) ; prvky seznamu se apliku… text/html 2011-08-16T20:33:35+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.mplicka.cz/jui/cviko4?rev=1313526815&do=diff JUI - 4. cviceni Vystupni funkce ;;format out_stream "format_retezec" ;; t = stream na nejvyssi urovni (format t "~A - ~A je ~A" 3 2 (- 3 2)) 3 - 2 je 1 ;;~A tiskne jako princ nebo ~S jako print ~F realne cislo (Defun interpret() (print "hlaska>") (print (Eval (Read)))) (interpret) ) text/html 2011-08-16T20:33:34+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.mplicka.cz/jui/cviko5?rev=1313526814&do=diff JUI - 5. cviceni POle * klasicky - vytvoreni - make-array, ;;3-rozmerne pole s dim = 2x4x6 (setf pole (make-array '(2 4 6) :initial-element nil )) ;;pristup k prvku (aref pole 0 2 5) ;vypise nil - nic jsme tam nezaradili ;;prirazeni (setf (aref pole 0 2 5) '(1 3) ) text/html 2011-08-16T20:33:35+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.mplicka.cz/jui/cviko6?rev=1313526815&do=diff JUI - 6. cviceni ;bloky progn prog1 prog1 blok kodu, vraci n-ty vysledek block - pojmenovany blok (return hodnota) vraci z bloku (return-from jmeno-bloku hodnota) (block prvni (+ 1 2) (+ 2 3) (block druhy (+ 4 5) (return-from prvni 10)) (+ 8 9)) (defun f () (format t "test") (return-from f 1) (+ 8 9)) (prog ((x 5) (y 20)) navesti (format t "~A ~A ~%" x y) (decf x) (if (zerop x) (return y) (go navesti))) ;iteracni cykly (dolist (var sezna… text/html 2011-08-16T20:33:35+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.mplicka.cz/jui/cviko7?rev=1313526815&do=diff JUI - 7. cviceni ;;makra ; jmeno, parametry -> dosadi parametry ; makro vypocita vysledek, ktery je kod (vyraz) ; vysledek se vrati a potom se spusti a vysledek spusteni je celkovy vysledek (defmacro set-3 (x) (list 'setf x 3)) ;;alternativa s `, kde se nevyhodnocuje vyraz, ale dela se z toho ten seznam (defmacro set-3 (x) `(setf ,x 3)) ;;` zabrani vypoctu, "," zase vyhodnoti a dosadi\ ; @ expanduje seznam na jednotlive prvky (set-3 3) ;definujte makro, ktere zjisti vypis expandovaneh… text/html 2011-08-16T20:33:34+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.mplicka.cz/jui/cviko8?rev=1313526814&do=diff JUI - 8. cvičení - Prolog prolog - uvod reprezentant logickeho programovani * relace * unarni - mnozina * binarni - mnozina dvojic * ternrni - mnozina trojic * atom - male pocatecni pismeno * promenna - velke pocatecni pismeno text/html 2011-08-16T20:33:35+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.mplicka.cz/jui/start?rev=1313526815&do=diff JUI notes <http://service.felk.cvut.cz/courses/36JUI/> * 2. tyden - cviceni zruseno * 3. tyden - zadani semestralky * nejdriv lisp * 10. tyden - pisemka * pak prolog Semestralka * odevzdani (pred)posledni tyden * nejaka uloha na AI, agent * musi splnit ukol * nesmi se zacyklit