15 lines
290 B
Text
15 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
|