CTSC99 选课

很老的一道树DP，用树形DP的模型做，今天再写的时候居然沙茶的在计算过某状态后又重新计算，DP退化成了搜索，无奈。

转成二叉树后枚举左右子树分配的资源量即可。

program ctsc(input,output);
var
   n,m          : longint;
   w,v          : array[0..601] of longint;
   left,right : array[0..601] of longint;
   f          : array[-100..601,-100..601] of longint;
procedure init;
var
   i,x : longint;
begin
   fillchar(f,sizeof(f),0);
   readln(n,m);
   for i:=0 to n do
   begin
      left[i]:=-1;
      right[i]:=-1;
   end;
   for i:=1 to n do
   begin
      readln(x,w[i]);
      if left[x]<>-1 then
     right[i]:=left[x];
      left[x]:=i;
   end;
   for i:=1 to n do
      v[i]:=1;
   v[0]:=0;
end; { init }
procedure dfs(now,worth    :longint );
var
   i : longint;
begin
   if (now=-1)or(worth<=0) then
      exit;
   if f[now,worth]<>0 then//考试时就没写这句
      exit;
   dfs(left[now],worth-v[now]);
   f[now,worth]:=f[left[now],worth-v[now]]+w[now];
   dfs(right[now],worth);
   if f[right[now],worth]>f[now,worth] then
      f[now,worth]:=f[right[now],worth];
   for i:=0 to worth-v[now] do
   begin
      dfs(left[now],i);
      dfs(right[now],worth-v[now]-i);
      if f[left[now],i]+f[right[now],worth-i-v[now]]+w[now]>f[now,worth] then
     f[now,worth]:=f[left[now],i]+f[right[now],worth-i-v[now]]+w[now];
   end;
end; { dfs }
begin
   init;
   dfs(0,m);
   writeln(f[0,m]);
end.