, , . , , - n!=1*2 * 3 *...* (n-1) * n = (n-1)! n (0! = 1 ):
(defun! (n) (if(= 0) 1 (* (! (. 1))))).
- "!", n. -, , if-, n=0 1, n ! n-1.
:
(!5)
: 120.
, . DO, :
(DO ((nepi ! 1) (2 2 2)...)
(- 11 12...)
21 22...)
DO ep1, 2,... 1, 2,... ; , , 1i, DO-. 2i DO, ep1, 2,... 1, 2,... .
DO expt, n- (n - ):
(defun expt ( n)
(do (( 1));
((= n 0) );
(setq (* ))
(setqn(^nl))))
: EXPT.
:
(expt 2 3)
: 8.
() , . . , , , , , , . , .
-
. READ PRINT.
PRINT. , , .
|
|
:
(PRINT (* 2 2))
: 4.
.
READ : (READ). , , - . READ , , . , , :
(setq input (read));
READ input.
- , . PRINC, , TERPRI, .
( ) FORMAT, , .
-, , ..