[codevs1947]道路修建 搜索、树p

        var
                pre,last,other,long:array[0..2002333] of qword;
                k,l,n,tot,x,y,z:qword;
                ans,d:qword;
                i,j:longint;

                procedure add(x,y,z:qword);
                begin
                        inc(tot);
                        pre[tot]:=last[x];
                        last[x]:=tot;
                        other[tot]:=y;
                        long[tot]:=z;
                end;

                function dfs(x,p:qword):qword;
                var t,i,v,size:qword;
                begin
                        i:=1;
                        v:=1;
                        size:=1;
                        i:=last[x];
                        while i<>0 do
                        begin
                                v:=other[i];
                                if v=p then begin i:=pre[i]; continue; end;
                                t:=dfs(v,x);
                                inc(size,t);
                                if n>2*t then d:=n-2*t else d:=2*t-n;
                                inc(ans,d*long[i]);
                                i:=pre[i];
                        end;
                        dfs:=size;
                end;

                begin
                        readln(j);
                        for i:=1 to j-1 do
                        begin
                                readln(x,y,z);
                                add(x,y,z);
                                add(y,x,z);
                        end;
                        n:=j;
                        dfs(1,0);
                        writeln(ans);
                end.