没有上司的晚会 树形DP

题意/Description：

Ural大学有N个职员，编号为1~N。他们有从属关系，也就是说他们的关系就像一棵以校长为根的树，父结点就是子结点的直接上司。每个职员有一个快乐指数。现在有个周年庆宴会，要求与会职员的快乐指数最大。但是，没有职员愿和直接上司一起与会。 



读入/Input：

第一行一个整数N。(1<=N<=6000) 
接下来N行，第i+1行表示i号职员的快乐指数Ri。(-128<=Ri<=127) 
接下来N-1行，每行输入一对整数L,K。表示K是L的直接上司。 
最后一行输入0,0。



输出/Output：

输出最大的快乐指数。



题解/solution：

     根据题目给出的矛盾关系写出动规方程：

     T[i]表示不邀请i，以i为根的子树所获得的最大值

     F[i]表示邀请i，以i为根的子树所获得的最大值
     转移如下：


inc(t[v],f[son[d[v]]]);
inc(f[v],max(t[son[d[v]]],f[son[d[v]]]));




代码/Code：

var
v:array [0..6001] of boolean;
t,f,d,son,ls:array [0..6001] of longint;
n,tt:longint;
function max(o,p:longint):longint;
begin
if o>p then max:=o
else max:=p;
end;

procedure dfs(v:word);
begin
while d[v]>0 do
begin
dfs(son[d[v]]);
inc(t[v],f[son[d[v]]]);
inc(f[v],max(t[son[d[v]]],f[son[d[v]]]));
d[v]:=ls[d[v]];
end;
end;

procedure init;
var
i,x,y:longint;
begin
read(n);
for i:=1 to n do read(t[i]);
fillchar(v,sizeof(v),1);
tt:=n*(n+1) div 2;
for i:=1 to n-1 do
begin
read(x,y);
son[i]:=x; ls[i]:=d[y];
d[y]:=i;
if v[x] then begin dec(tt,x); v[x]:=false; end;
end;
end;

begin
init;
dfs(tt);
writeln(max(t[tt],f[tt]));
end.