直接放上程式碼:
> FF := proc (C, n)
local p, P
[seq(1+~`+`~(seq([1$p,0$(n-p)],p=P)),
P=combinat:-partition(C-n,min(C-n,n)))]
end proc
---------------------------------------------------------------------
這個程式在做整數分拆，輸入整數C然後列出由n個正整數相加的所有解，
其中中間這段(因為很長所以分兩行)看不懂，
符號看了help還是不太懂像是 +~`+` 和後面的combanat:-partion的部分
[seq(1+~`+`~(seq([1$p,0$(n-p)],p=P)),
P=combinat:-partition(C-n,min(C-n,n)))]
這式子到底什麼魔法跑出整數分割的?
是不是什麼遞迴?
拜託各位大大們幫忙了......
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 36.229.198.69
※ 文章網址: https://www.ptt.cc/bbs/Math/M.1558543944.A.5EA.html