我也算的是17004.Maple代码如下:
with(combinat):f:=proc()local S,a,b,L,m:m:=0:for a to 14 do for b from 15 to 33 do S:={$a+1..b-1}:for L in choose(S,4) do if add(i,i=L)=89-a-b then m:=m+1:fi:od:od:od:m:end:f();
我也算的是17004.Maple代码如下:
with(combinat):f:=proc()local S,a,b,L,m:m:=0:for a to 14 do for b from 15 to 33 do S:={$a+1..b-1}:for L in choose(S,4) do if add(i,i=L)=89-a-b then m:=m+1:fi:od:od:od:m:end:f();