FactorialByValue.m is been shortened
This commit is contained in:
parent
623565d6fa
commit
cacf6b0e44
|
@ -1,11 +1,11 @@
|
||||||
read "Enter n: ",n,!
|
r "Enter n: ",n,!
|
||||||
set result=$$factorial(n)
|
s result=$$factorial(n)
|
||||||
write n,"! = ",result,!
|
w n,"! = ",result,!
|
||||||
halt
|
h
|
||||||
|
|
||||||
factorial(n)
|
factorial(n)
|
||||||
if n=1 quit 1
|
i n=1 q 1
|
||||||
set k=1
|
s k=1
|
||||||
for i=1:1:n do
|
f i=1:1:n d
|
||||||
. set k=k*i
|
. s k=k*i
|
||||||
quit k
|
q k
|
||||||
|
|
Loading…
Reference in New Issue