RosettaCodeData/Task/Multifactorial/Picat/multifactorial-2.picat

2 lines
65 B
Plaintext

multifactorial2(N,Degree) = reduce(*, [I : I in N..-Degree..1]).