数的划分

 数的划分

问题描述
将整数n分成k份，且每份不能为空，任意两份不能相同(不考虑顺序)。
例如：n=7，k=3，下面三种分法被认为是相同的。
1，1，5; 1，5，1; 5，1，1;
问有多少种不同的分法。
输入：n，k (6<n<=200，2<=k<=6)
输出：一个整数，即不同的分法。

样例
输入： 7 3
输出：4 {四种分法为：1，1，5;1，2，4;1，3，3;2，2，3;}

-----------------------------------------------

和自然数拆分的解决方法是一样的...

------------------------------------------------

var
  n,k,ans:longint;
procedure init;
begin
  assign(input,'p1023.in');
  assign(output,'p1023.out');
  reset(input);
  rewrite(output);
end;

procedure terminate;
begin
  close(input); close(output);
  halt;
end;

procedure dfs(t,last,tot:longint);
var
  i:longint;
begin
  if t=k then
    begin
      if tot=n then inc(ans);
      exit;
    end;
  for i:=last to n-tot do
    begin
      dfs(t+1,i,tot+i);
    end;
end;

procedure main;
begin
  readln(n,k);
  ans:=0;
  dfs(0,1,0);
  writeln(ans);
end;

begin
  init;
  main;
  terminate;
end.