12 lines
387 B
Rexx
12 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 !
|