16 lines
290 B
Text
16 lines
290 B
Text
|
function multifactorial(integer n, integer order)
|
||
|
|
atom res = 1
|
||
|
|
if n>0 then
|
||
|
|
res = n*multifactorial(n-order,order)
|
||
|
|
end if
|
||
|
|
return res
|
||
|
|
end function
|
||
|
|
|
||
|
|
sequence s = repeat(0,10)
|
||
|
|
for i=1 to 5 do
|
||
|
|
for j=1 to 10 do
|
||
|
|
s[j] = multifactorial(j,i)
|
||
|
|
end for
|
||
|
|
?s
|
||
|
|
end for
|