RosettaCodeData/Task/Multifactorial/Mathematica/multifactorial.math
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

2 lines
123 B
Text

Multifactorial[n_, m_] := Abs[ Apply[ Times, Range[-n, -1, m]]]
Table[ Multifactorial[j, i], {i, 5}, {j, 10}] // TableForm