recursion - 递归分区号是如何在程序上一步一步找到的？

Question

使用 GAP 4.10.2 编写的“递归分区号”代码如下。例如，您能解释一下nrparts(15)的GAP 编程的工作步骤吗？我们如何在程序中一步一步得到nrparts(15) = 176 ？

nrparts:= function(n)
local np;

np := function(n, m)
local i, res;
if n = 0 then
  return 1;
fi;
res:= 0;
for i in [1..Minimum(n,m)] do
  res:= res + np(n-i, i);
od;
return res;
end;

return np(n,n);

end;