13 lines
387 B
Rexx
13 lines
387 B
Rexx
|
numeric digits 1000 /*prepare for some gihugeic numbers.*/
|
||
|
|
...
|
||
|
|
n=4
|
||
|
|
say n'!=' factorial(n)
|
||
|
|
exit
|
||
|
|
/*──────────────────────────────────FACTORIAL subroutine────────────────*/
|
||
|
|
factorial: parse arg x
|
||
|
|
!=1
|
||
|
|
do j=2 to x
|
||
|
|
!=!*j
|
||
|
|
end /*j*/
|
||
|
|
return !
|