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