RosettaCodeData/Task/Multifactorial/Picat/multifactorial-6.picat
2023-07-01 13:44:08 -04:00

2 lines
77 B
Text

multifactorial5(N,D) = M =>
N <= 0 -> M = 1 ; M = N*multifactorial4(N-D,D).