RosettaCodeData/Task/Multifactorial/Mathematica/multifactorial.math

3 lines
123 B
Text
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
Multifactorial[n_, m_] := Abs[ Apply[ Times, Range[-n, -1, m]]]
Table[ Multifactorial[j, i], {i, 5}, {j, 10}] // TableForm