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

1. (+   ... ).  3. (*   ... )
2. ( -   ... )  4. (/   ... )

$ (+ 2 4 6 7)	$ (- 20 3 5 6)	$ (* 2 4 6)	$ (/ 24 2 2 3)
19		6		48		2

$ (ADD1 6)	$ (SUB1 10)	
7		9                   
$ (SETQ S 10)	$ (INCQ S 14)	$ (DECQ S 4)
10		24		30

1. (MIN   ... ).	$ (MIN 12 3  45  67)	$ (MAX 1 2 5 3)
2. (MAX   ... ).	3			5

$ (< 2 4 6)	$ (>= 5 3 3 2)	$ ( /= 4 4 5)
T		T		T
$ (< 6 6 8 15)	$ (<= 6 6 8 15)	$ ( /= 4 4 4)
NIL		T		NIL

1. �����i� ����������

(TRUNCATE m n), (ROUND m n), (CEILING m n) (FLOOR m n)

$ (TRUNCATE 6/4)  $ (TRUNCATE -6/4)  $ (CEILING 9 4)	$ (CEILING -9 4)
1		  -1		     3			-2

$ (FLOOR 6 4)	$ (FLOOR -6 4)	$ (FLOOR 6/4)	$ (FLOOR -6/4)
1		-2		1		-2

2. �����i� �����i

(REM m n), (MOD m n), (DIVIDE m n)

$ (REM 6 4)	$ (DIVIDE 7 2)	$ (REM -6 4)	$ (MOD 6 4)
2		(3 . 1)		-2		2

3. ���� �����

(SIGNUM n)

4. ������ �����

5. ��������� �� ���������

$ (signum -5/3)	$ (abs -5/3)	$ (numerator 10/8)	$ (denominator 10/8 )
-1		5/3		5			4

6. ���i���i ���i��i �����i�

$ (LOGAND 5 7 3)	$ (LOGIOR 4 2 1)	$ (LOGXOR 5 2 3)   $ (LOGNOT 6)
1			7			4		    -7

7. �����i �����i�

$ (AND (EQL 'as 'as) (< 2 4))	$ (OR NIL (< 4 56))	$ (NOT (EQL 'd 'g))
T				T			T

8. ����.

$ (SHIFT 3 1)	$ (SHIFT 3 -1)	$ (GCD 24 66 600)	$ (LCM 24 66 600)
6		1		6			6600

9. ���, ���.

(GCD n1 n2 ... nM), (LCM n1 n2 ... nM).

�p��������i �����i

(DEFUN CHANGE01 (lst)
        ((NULL lst) NIL)
        (CONS (- 1 (CAR lst)) (CHANGE01 (CDR lst)))  )

$ (SETQ a 2 b 3)				// a = 2, b = 3
$ (SETQ a (+ a b) b (- a b) a (- a b))		// a = 3, b = 2

(DEFUN NUM (lst)
        ((NULL (CDR lst)) 1)
        ((/= (CAR lst) (CADR lst)) (+ 1 (NUM (CDR lst))))
        (NUM (CDR lst))  )

(DEFUN COMELEMENT (lst1 lst2)
        ((OR (NULL lst1) (NULL lst2)) 0)
        ((< (CAR lst1) (CAR lst2)) (COMELEMENT (CDR lst1) lst2))
        ((> (CAR lst1) (CAR lst2)) (COMELEMENT lst1 (CDR lst2)))
        (+ 1 (COMELEMENT (CDR lst1) (CDR lst2)))  )

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

$ (SETQ a 125)
$ a		$ (QUOTE a)	$ (CAR (CONS 4 7))	$ (CAR '(CONS 4 7))
125		a		4			CONS

(DEFUN LENGTHr (lst)		(DEFUN LENGTH (lst)
	((NULL lst) 0)			(SETQ ct 0)
	(+ 1 (LENGTHr (CDR lst)))  	(LOOP
)					((NULL lst) ct)
					(SETQ lst (CDR lst) ct (+ 1 ct))  
					)  )

$ (IF (EQL 'r 'r)	(CAR '(q w e r t y)) (CDR '(q w e r t y)))  -  q
$ (IF (EQL 'r 'w)	(CAR '(q w e r t y)) (CDR '(q w e r t y)))  -  (w e r t y)

$ (SETQ a '(q w e r t y))		$ a
$ (PROG1 (CAR a) (SETQ a (CDR a)))	(w e r t y)
q

$ (EXECUTE "command.com" "/c dir c:")

0! = 1			$ (DEFUN FACTORIAL (n)		$ (FACTORIAL 10)
N! = N*(N-1)! ���� N>0.	((ZEROP n) 1)			3628800
			(* n (FACTORIAL (- n 1)))  )

$ (DEFUN FACTORIAL1 (n rslt)		$ (FACTORIAL1 10)
(SETQ rslt 1)				3628800
(LOOP
         ((ZEROP n) rslt )		$ (FACTORIAL 0 a)
         (SETQ rslt (* n rslt))		1
         (SETQ n (- n 1))  )  )

F(0)=1, F(1)=1, F(N) = F(N-1) + F(N-2).

$ (DEFUN FIBON (n)				$ (FIBON 20)
((<= n 1) 1)					10946
(+ (FIBON (- n 1)) (FIBON (- n 2)))  )

$ (DEFUN FIB (n f1 f2)			$ (FIB 20 1 0)
((ZEROP n) f1)				10946
(FIB (- n 1) (+ f1 f2) f1)  )

��������

���(a, b) = ���(a - b, b), ���� a > b,
	    ���(a, b - a), ���� a < b,
	                a, ���� a = b.

   ���(a, b) =	���(a mod b, b), ���� a > b,
                ���(a, b mod a), ���� a < b,
	         	      a, ���� b = 0.
			      b, ���� a = 0.