FPR_LISP_V11

(numberp 'g)
NIL
(numberp '4)
T

//da li je simbol...
(symbolp '4)
NIL
(symbolp 'p)
T

//da li je vece
(> 3 4)
NIL
(> 4 3)
T
(> 55 11 2)
T
(> 55 2 11)
NIL

//jednako
(equal 5 4)
NIL
(equal 5 5)
T

//jel paran
(setf broj 5)
5
(when (evenp broj) (list 'paran))
NIL

(setf broj 6)
6
(when (evenp broj) (list 'paran))
(PARAN)

(if (evenp broj) (list 'paran) (list 'neparan))
(PARAN)

(cond ((> broj 0) (list 'pozitivan)) ((<broj 0) (list 'negativan))((equal broj 0) (list 'nula)))
(POZITIVAN)

(when (and (> 3 4) (<5 6)) (list 'nesto))
NIL
(when (and (> 33 4) (< 5 6)) (list 'nesto))
(NESTO)

//REKURZIJA
(defun suma (n) (if (> n 0) (+ n (suma (- n 1))) 0))
SUMA
(suma 4)
10
(suma 10)
55
(suma 100)
5050

//MAPA
(mapcar '+ '(1 2 3) '(5 6 7))
(6 8 10)
(mapcar 'numberp '(4 5 b 6 c))
(T T NIL T NIL)
(mapcar 'zerop '(43 0 30 340))
(NIL T NIL NIL)

//skloni koji nisu nula
(remove-if 'zerop '(4 3 0 12 54 0))
(4 3 12 54)

//
(count 'numberp '(d bv 5 4))
0
(count-if 'numberp '(d bc 12 5 5))
3

//
(setf p 'first)
FIRST
(funcall p '(a b c))
A

//
(setf p 'append)
APPEND
(apply p(list '(3 4 5) '(a b c)))
(3 4 5 A B C)

//lambda
((lambda (x) (+ x 5)) 7)
12
(mapcar (lambda (x) (+ x 5)) '(3 55 12))
(8 60 17)
//ostatak pri deljenju
(mapcar (lambda (x y) (rem x y)) '(2 3 4) '(5 8 9))
(2 3 4)
(mapcar (lambda (x y) (rem y x)) '(2 3 4) '(5 8 9))
(1 2 1)

//petlja
(dotimes (it 5 rez) (setf rez (+ rez it)))
10

//dolist petlja
(setf rez 0)
0
(dolist (it l rez) (setf rez(+ rez it)))
15