RosettaCodeData/Task/Multifactorial/11l/multifactorial-2.11l

7 lines
83 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
F multifact(=n, d)
V prod = 1
L n > 1
prod *= n
n -= d
R prod