1380 没有上司的舞会

1380 没有上司的舞会

  时间限制: 1 s

 空间限制: 128000 KB

 题目等级 : 钻石 Diamond

题解

  

题目描述 Description

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

输入描述 Input Description

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

输出描述 Output Description

输出最大的快乐指数。

样例输入 Sample Input

7
1
1
1
1
1
1
1
1 3
2 3
6 4
7 4
4 5
3 5
0 0

样例输出 Sample Output

5

数据范围及提示 Data Size & Hint

各个测试点1s

分类标签 Tags 点此展开 

题解：额。。最近快要省选了，感觉自己太弱，来发水题增加点信心（HansBug：其实是好久没打树形DP了有木有）。这题别的没啥，是一棵树，不是森林，而且有唯一的根节点，这就不难办了（假如是个根节点不唯一的有向图的话还得拓扑排序，唉那样子真心神烦。。。唉这年头写个水题还得想这么多，我真心太弱了TT）

type
    point=^node;
    node=record
               g:longint;
               next:point;
    end;
    vec=record
              a0,a1:longint;
    end;
var
   i,j,k,l,m,n:longint;
   d1,d2:vec;
   a:array[0..10000] of point;
   b,c:array[0..10000] of longint;
function max(x,y:longint):longint;inline;
         begin
              if x>y then max:=x else max:=y;
         end;
function min(x,y:longint):longint;inline;
         begin
              if x<y then min:=x else min:=y;
         end;
function dp(x:longint):vec;
         var
            d1,d2:vec;
            p:point;
         begin
              d1.a0:=0;d1.a1:=b[x];
              p:=a[x];
              while p<>nil do
                    begin
                         d2:=dp(p^.g);
                         d1.a0:=d1.a0+max(d2.a1,d2.a0);
                         d1.a1:=d1.a1+d2.a0;
                         p:=p^.next;
                    end;
              exit(d1);
         end;
procedure add(x,y:longint);inline;
          var p:point;
          begin
               new(p);p^.g:=y;
               p^.next:=a[x];a[x]:=p;
          end;
begin
     readln(n);
     for i:=1 to n do readln(b[i]);
     for i:=1 to n do a[i]:=nil;
     fillchar(c,sizeof(c),0);
     for i:=1 to n-1 do
         begin
              readln(j,k);
              add(k,j);c[j]:=1;
         end;
     m:=-1;
     for i:=1 to n do if c[i]=0 then m:=i;
     d1:=dp(m);
     writeln(max(d1.a0,d1.a1));
end.