6 lines
105 B
Text
6 lines
105 B
Text
multifactorial3(N,Degree) = M =>
|
|
M = 1, I = N,
|
|
while(I > 0)
|
|
M := M*I,
|
|
I := I - Degree
|
|
end.
|