1509: [NOI2003]逃学的小孩 - BZOJ

Description

Input

第一行是两个整数N（3  N  200000）和M，分别表示居住点总数和街道总数。以下M行，每行给出一条街道的信息。第i+1行包含整数Ui、Vi、Ti（1Ui, Vi  N，1  Ti  1000000000），表示街道i连接居住点Ui和Vi，并且经过街道i需花费Ti分钟。街道信息不会重复给出。
Output

仅包含整数T，即最坏情况下Chris的父母需要花费T分钟才能找到Chris。
Sample Input

4 3

1 2 1

2 3 1

3 4 1

Sample Output

4

树dp

其实不是很难，只是要小心细节

我们要找出一个三叉路（允许一条为0）从大到小为a，b，c，使得a+b+b+c最大

所以我们先树dp求出每个点往下走的最长的三条边，但是这条边还可能来自于父亲，所以再dfs一遍，然后更新答案

 const
     maxn=;
 var
     first,u:array[..maxn]of longint;
     next,last,w:array[..maxn*]of longint;
     f:array[..maxn,..]of int64;
     n,m,tot:longint;
     ans:int64;

 procedure insert(x,y,z:longint);
 begin
     inc(tot);
     last[tot]:=y;
     next[tot]:=first[x];
     first[x]:=tot;
     w[tot]:=z;
 end;

 procedure up(var x:int64;y:int64);
 begin
     if x<y then x:=y;
 end;

 procedure new(x:longint;y:int64);
 begin
     if y>f[x,] then
       begin
         f[x,]:=f[x,];
         f[x,]:=f[x,];
         f[x,]:=y;
       end
     else
       if y>f[x,] then
         begin
           f[x,]:=f[x,];
           f[x,]:=y;
         end
       else up(f[x,],y);
 end;

 procedure dfs(x,fa:longint);
 var
     i:longint;
 begin
     i:=first[x];
     while i<> do
       begin
         if last[i]<>fa then
         begin
           dfs(last[i],x);
           u[last[i]]:=w[i];
           new(x,f[last[i],]+w[i]);
         end;
         i:=next[i];
       end;
 end;

 function get(x,y,z:int64):int64;
 begin
     exit(x+y*+z);
 end;

 procedure dfs2(x,fa:longint);
 var
     i:longint;
 begin
     if f[x,]+u[x]=f[fa,] then new(x,f[fa,]+u[x])
     else new(x,f[fa,]+u[x]);
     up(ans,get(f[x,],f[x,],f[x,]));
     i:=first[x];
     while i<> do
       begin
         if last[i]<>fa then dfs2(last[i],x);
         i:=next[i];
       end;
 end;

 procedure main;
 var
     i,x,y,z:longint;
 begin
     read(n,m);
     for i:= to m do
       begin
         read(x,y,z);
         insert(x,y,z);
         insert(y,x,z);
       end;
     dfs(,);
     dfs2(,);
     write(ans);
 end;

 begin
     main;
 end.