【解题报告】舞会

题目来源：vijos1706.

这题比较简单。对于任意一棵以v为根的子树，要么上司v上去，要么v的下属们上去，显然搞笑值是负的的家伙们只要坐着看就好了（笑）。设f[v,1]为以v为根节点的子树有下属上台的最大搞笑值，f[i,2]为以v为根节点的子树只有上司上台的最大搞笑值。则状态转移方程如下：(s代表v的子节点个数)

f[v,1]=∑i=1smax(f[ch[v,i],1],f[ch[v,i],2])

（因为上司他不上去，所以下属们想怎样都可以）

f[v,2]=a[v]+∑i=1smax(f[ch[v,i],1],0)

（上司上去了，下属们只可以派出自己的小喽啰）

AC代码：

program vijos1706;var n,i,x:integer;    a:array[1..5000]of longint;    ch:array[1..5000,0..4999]of integer;//ch means child.    f:array[1..5000,1..2]of longint;//1 means child,2 means self.function max1(a,b:longint):longint;begin    if(a>b)then exit(a);    exit(b);end;procedure dp(v:integer);var max_c,max_s:longint;//max_c是有下属上去的最大值，max_s 是自己上去的最大值    i:integer;begin    if(ch[v,0]=0)then exit;    for i:=1 to ch[v,0] do        dp(ch[v,i]);    max_c:=0;    for i:=1 to ch[v,0] do        if(max1(f[ch[v,i],1],f[ch[v,i],2])>0)then inc(max_c,max1(f[ch[v,i],1],f[ch[v,i],2] ));    f[v,1]:=max_c;    max_s:=0;    for i:=1 to ch[v,0] do        if(f[ch[v,i],1]>0)then inc(max_s,f[ch[v,i],1]);    f[v,2]:=max_s+a[v];end;begin    readln(n);    for i:=1 to n do read(a[i]);    for i:=2 to n do begin readln(x); inc(ch[x,0]); ch[ x,ch[x,0] ]:=i; end;    for i:=1 to n do        if(ch[i,0]=0)then begin f[i,2]:=a[i]; f[i,1]:=-maxlongint; end;    dp(1);    writeln(max1(f[1,1],f[1,2]));end.

喂喂，搞不懂CSDN怎么一直待审核······