题意:整数划分问题,将整数N分为K份,每份都不为0.求方案数.
分析:DP,f[i,j]表示整数I,分为J份的方案数.
分两类进行转移:
1.分出来的j份中没有含1的,f[i,j]=f[i-j,j].
2.分出来的j分中含有1,f[i,j]=f[i-1,j-1];
合起来f[i,j]=f[i-1,j-1]+f[i-j,j];
特殊的f[i,i]=1.
code:
var f:array[0..201,0..201] of int64;
n,k,i,j:longint;
begin
for i:=1 to 201 do f[i,i]:=1;
for i:=2 to 201 do
for j:=1 to i-1 do
begin
f[i,j]:=f[i-1,j-1];
inc(f[i,j],f[i-j,j]);
end;
readln(n,k);
while n+k<>0 do
begin
writeln(f[n,k]);
readln(n,k);
end;
end.