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

2 lines
66 B
Plaintext

multifactorial6(N,D) = cond(N <= 0, 1, N*multifactorial6(N-D,D)).