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

2 lines
60 B
Plaintext

multifactorial(N,Degree) = prod([ I : I in N..-Degree..1]).