RosettaCodeData/Task/Multifactorial/11l/multifactorial-2.11l
2023-07-01 13:44:08 -04:00

6 lines
83 B
Text

F multifact(=n, d)
V prod = 1
L n > 1
prod *= n
n -= d
R prod