mumps-demo/04-user-defined-functions/FactorialByValue.m

  r "Enter n: ",n,!
  s result=$$factorial(n)
  w n,"! = ",result,!
  h

factorial(n)
  i n=1 q 1
  s k=1
  f i=1:1:n d
  . s k=k*i
  q k
FactorialByValue.m is been shortened 2019-09-26 05:43:20 -04:00			`r "Enter n: ",n,!`
			`s result=$$factorial(n)`
			`w n,"! = ",result,!`
			`h`
FactorialByValue.m is been added 2019-09-25 14:55:27 -04:00
			`factorial(n)`
FactorialByValue.m is been shortened 2019-09-26 05:43:20 -04:00			`i n=1 q 1`
			`s k=1`
			`f i=1:1:n d`
			`. s k=k*i`
			`q k`