��'���� �i���

����i����i �����i� �i���

1. (CAR list)		- ������ ������.
2. (CDR list)		- ��i�� ������.
3. (CONS object list)	- ��'������� (����������i�) ��'���� �i �������.
4. (EQL atom1 atom2)	- ���i������ ���� ����i�.
5. (ATOM object)	- �����i��� �� � object ������.

$ (CAR '(q w e r t y))	$ (CDR '(q w e r t y))	$ (CAR '((one 1) (two 2)))
q			(w e r t y)		(one 1)

$ (CAR '())	$ (CDR '(tree))	$ (CDR '((q w))	$ (CDR '())
NIL		NIL		NIL		NIL

$ (CAR (CDR (CDR '(q w e r t y))))	$ (CAR (CDR (CDR '((q 1) (w 2) (e 3)))))
$ (CADDR '(q w e r t y)) 		$ (CADDR '((q 1) (w 2) (e 3)))
e					(e 3)

$ (CDR (CDR '((q 1) (w 2) (e 3))))	$ (CAR (CAR '((q w))))
$ (CDDR '((q 1) (w 2) (e 3)))		$ (CAAR '((q w)))
((e 3))					q

$ (CONS '(q w) '(r (t y)))	 $ (CONS apple '(q w)) 	$ (CONS '(q w) '(r t y))	$ (CONS 5)
((q w) r (t y))			 (apple q w)		((q w) r t y)			(5)

$ (CAR (CONS '(q w) '(r (t y))))	$ (CAR (CONS apple NIL))
(q w) 					apple

$ (EQL 'qw 'qw)		$ (EQL (CAR '(q w)) q)	$ (EQL (CAR '(q,w) NIL)
T			T			F

$ (ATOM qwerty)		$ (ATOM '(q w e))	$ (ATOM '())
T			F			T

$ (ATOM '(q))		$ (ATOM 3)
F			T

�����i� �����������

1. (SET symbol object)			- ���i�� ������� ��'�����
2. (SETQ sym1 form1 sym2 form2 ... )	- ����i����� ����� �����i� SET
3. (PSETQ sym1 form1 sym2 form2 ... )	- ����i����� ����� �����i� SET
4. (POP symbol)		- ������� ������� ����� (������)
5. (PUSH symbol form)	- ����� ������ symbol � ���� (������) form.

$ (SET 'fox '(a s d))	$ (SETQ vowels '(a e i o u)))
$ (SETQ fox '(a s d))	$ (SETQ vowels (CONS 'y vowels))
(a s d)			(y a e i o u)

$ (SETQ w 1 e 2)  Val(w)=1, Val(e)=2	$ (SETQ w 1 e 2)   Val(w)=1, Val(e)=2
$ (SETQ w e e w)  Val(w)=2, Val(e)=2	$ (PSETQ w e e w)  Val(w)=2, Val(e)=1

(SET 'car 'road)  Val(car) = road  Val(road) = road
(SET car flower)  Val(car) = road  Val(road) = flower	Val(flower) = flower
(SET 'car car)	  Val(car) = road  Val(road) = flower	Val(flower) = flower
(SET road car)	  Val(car) = road  Val(road) = flower	Val(flower) = road
(SET 'road 4)	  Val(car) = road  Val(road) = 4	Val(flower) = road
(SET road 'hen)	�������, 4 �� � �������� i �� ���� �������� i��i ��������

$ (SETQ a '(q w e r t))	Val(a) = (q w e r t)
$ (POP a)		Val(a) = (w e r t)
$ (PUSH 'n a)		Val(a) = (n w e r t)

a) (CONS NIL NIL) 			     �) (ATOM (CDR '(q NIL)))
�) (CONS (CAR '((q w))) (CDR '((q (w e)))))  �) (EQL NIL 'NIL)
�) (EQL (CDR '(q)) NIL)			     �) (PUSH nil nil) (EQL (ATOM '(q w)) nil)

a) ����: (A, B, C), (X, Y, Z).		    ����������: (A, Y, Z).
�) ����: ((one 1) (two 2 3) (three 4 5 6))  ����������: 5.
�) ����: ((q w (r) t) y)		    ����������: NIL
�) ����: ((q (w (e) r) t) y)		    ����������: ((q) w (e) r)
�) ����: (q (w e))			    ����������: w, e
�) ����: (q w)				    ����������: (((q w)))

�) ����: one=1, two=2, three=3		�������: one=2, two=3, three=1.
�) ����: Val(house)=sky, Val(sky)=house	�������: Val(sky)=sky, Val(house)=house
�) ����: Val(lst)=(q)			�������: Val(lst)=(((q) q) q)
�) ����: Val(q)=w, Val(w)=s		�������: Val(q)=(s s)

�) (CADR '(nil (nil)))				
�) (CONS (ATOM '(ATOM '(q w e))) '(NIL))
�) (CONS '(q w) '(e r) '(t y))
�) (EQL (ATOM (CDR '(nil))) (CADDDR '(w e r t y))
�) (EQL (CONS nil) (CADR '(q (nil) w)))
�) (CDR '(CDR (CONS '(q) '(w))))

�)  (SETQ one two two three three one)
    (SET one three)
    (PSETQ one two two three three one)

�) (SETQ a '(a b) b '(b c) c '(c a))
   (SET (CADR b) (CONS a))
   (SETQ a (CADR a) b (CADR b) c (CADR c))

����������: ���� a = (a b), b = (b c), c = ((a b)),
�� �i��� (SETQ a (CADR a)) ���� a = b, b = (b c), c = ((a b)),
� �i��� (SETQ a (EVAL (CADR a))) ���� a = (b c), b = (b c), c = ((a b)).
(EVAL a) - ��������� �������� ������� �, ��� ��������� ���� ��������.