bzoj 1060 贪心

　　设根到每个叶子节点的距离为dis，比较容易的看出来，我们需要把这颗树的所有叶子节点的值都变成其中最大的内个，我们设为max，那么对于一颗子树来说，设其中dis值最大的为x，我们需要将这个子树根节点和子树根节点的父亲节点的边的值增加max-x，这时从贪心的角度来考虑，因为不论如何，对于当前最大的这个点来说，我们都需要将他的值增加max-x，那么我们只需要让这增加的更有价值，也就是使更多需要增加的点都被增加些，那么因为不能加多，所以取得是最大的点的dis值。那么dfs一遍就行了。

　　反思：过程中申请变量没有赋初值。

　　ps：这道题的数据有问题，生成输出数据的标程没有开longlong，开的是int，会自然溢出，所以pascal如果不手动模拟c++溢出是过不了的。

/**************************************************************

    Problem: 1060

    User: BLADEVIL

    Language: Pascal

    Result: Wrong_Answer

****************************************************************/

 

//By BLADEVIL

var

    n                       :longint;

    pre, other, len         :array[0..1000010] of longint;

    root                    :longint;

    last                    :array[0..500010] of longint;

    l                       :longint;

    ans                     :int64;

    max1, dis               :array[0..500010] of longint;

      

procedure connect(x,y,z:longint);

begin

    inc(l);

    pre[l]:=last[x];

    last[x]:=l;

    other[l]:=y;

    len[l]:=z;

end;

  

procedure dfs(x,fa:longint);

var

    q, p                    :longint;

begin

    q:=last[x];

    max1[x]:=x;

    while q<>0 do

    begin

        p:=other[q];

        if p=fa then

        begin

            q:=pre[q];

            continue;

        end;

        dis[p]:=dis[x]+len[q];

        dfs(p,x);

        if dis[max1[p]]>dis[max1[x]] then max1[x]:=max1[p];

        q:=pre[q];

    end;

end;

  

procedure make(x,fa,tmp:longint);

var

    q, p                    :longint;

    up, use                 :longint;

begin

    up:=dis[max1[root]];

    use:=0;

    if fa<>0 then

    begin

        use:=up-tmp-dis[max1[x]];

        ans:=ans+use;

    end;

    q:=last[x];

    while q<>0 do

    begin

        p:=other[q];

        if p=fa then

        begin

            q:=pre[q];

            continue;

        end;

        make(p,x,tmp+use);

        q:=pre[q];

    end;

end;

  

procedure init;

var

    i                       :longint;

    x, y, z                 :longint;

begin

    read(n,root);

    for i:=1 to n-1 do

    begin

        read(x,y,z);

        connect(x,y,z);

        connect(y,x,z);

    end;

    dfs(root,0);

end;

  

procedure main;

begin

    make(root,0,0);

    writeln(ans);

end;

  

begin

    init;

    main;

end.