本帖最后由 lugionline 于 2016-9-2 08:59 编辑
说实话,这些代码完全没有贴出来的必要,看不出任何人工智慧,弱爆了
比方第一题,我记得用C写过的,现在再用M来升级一下:
In[1]:= f[m_, d_, k_] := f[m, d, k] = Piecewise[{
{0, k > m},
{1, m == k}},
Sum[If[dd == d, 0, f[m - k, dd, kk]], {dd, 9}, {kk, dd}]]
Timing@Sum[f[10, d, k], {d, 9}, {k, d}]
Out[2]= {0.046, 3110771999}
这才叫代码 
在经典格式下看起来爽心悦目啊,赶快投入大 M 门下吧
|