6 lines
99 B
Forth
6 lines
99 B
Forth
FUNCTION FACT(N)
|
|
INTEGER N,I,FACT
|
|
FACT=1
|
|
DO 10 I=1,N
|
|
10 FACT=FACT*I
|
|
END
|