动态修改询问树上两点距离 poj2763
acm归来
应该说又是一次铩羽，发现其他高中的队伍普遍在我们前面，雅礼包揽了前2，我们高三神牛只拿了第6，然后就是我们uracil排到了22位，主要是c题依poj的习惯打了not seekeof
结果测评器不认账，死活报wa，然后就是g题，题目数据范围有问题，结果不告诉我们，足足花了2个半小时，在2:30即将下考时才ac，但是本来可以再a一道动规的，结果没时间不说，罚时罚的想吐，排在了sol 6的最后一名。
poj 2763应该可以算是动态树问题，但是我用欧拉序列+线段树给过了（其实我发现网上普遍也是用这种算法）
给你n个节点的带权树，m个操作，当前位置为s
每个操作：0 x 从当前节点移动到x，并输出距离
1 x y 修改第x条边权值为y
dist=dist[s]+dist[x]-2*dist[lca(s,x)];dist指到根的距离。
我们构造一个欧拉序列（使每棵子树的开头和末尾均为根），当某条边权值被改变，即在这棵子树中每个节点dist值均+（w‘-w），因此我们用线段树维护，每次标记永久化（或加时间戳）进行区间修改，求dist回收标记即可。
lca tarjan，rmq均可。
var tail:array[1..100000]of longint;
next,sora,cost:array[1..500000]of longint;
root,l,r,pp,pos,pos2,d,ww:array[0..100000]of longint;
di:array[1..524288]of longint;
f:array[1..500000,0..20]of longint;
o:array[0..20]of longint;
len,n,m,m1,ss,dep,ll:longint;
function min(x,y:longint):longint;
begin
if d[x]<d[y] then exit(x) else exit(y)
end;
procedure dfs(x,y,w:longint);
var i,ne:longint;
begin
root[x]:=y;
inc(dep);inc(ll);pp[x]:=ll;d[x]:=dep;f[ll,0]:=x;
inc(len);di[len+m1]:=w;l[x]:=len;
i:=x;
while next[i]<>0 do begin
i:=next[i];ne:=sora[i];
if ne<>y then dfs(ne,x,w+cost[i]);
inc(ll);f[ll,0]:=x
end;
inc(len);di[len+m1]:=w;r[x]:=len
end;
function dis(x:longint):longint;
begin
x:=x+m1;dis:=0;
while x<>0 do begin
dis:=dis+di[x];
x:=x>>1
end
end;
procedure note(l,r,w:longint);
begin
l:=l+m1-1;r:=r+m1+1;
while not(l xor r=1) do begin
if l and 1=0 then di[l+1]:=di[l+1]+w;
if r and 1=1 then di[r-1]:=di[r-1]+w;
l:=l>>1;r:=r>>1
end
end;
procedure origin;
var i:longint;
begin
m1:=1;
while m1<n<<1+2 do m1:=m1<<1;m1:=m1-1;
for i:=1 to n do tail[i]:=i;ss:=n;
end;
procedure link(x,y,z:longint);
begin
inc(ss);next[tail[x]]:=ss;tail[x]:=ss;sora[ss]:=y;cost[ss]:=z;
inc(ss);next[tail[y]]:=ss;tail[y]:=ss;sora[ss]:=x;cost[ss]:=z
end;
procedure rmq;
var i,j,k:longint;
begin
o[0]:=1;
for i:=1 to 20 do o[i]:=o[i-1]<<1;
k:=trunc(ln(ll)/ln(2));
for j:=1 to k do
for i:=1 to ll do
if i+o[j]-1<=ll then f[i,j]:=min(f[i,j-1],f[i+o[j-1],j-1])
else break
end;
procedure init;
var i,x,y,z,ch,s,lll,rrr,lca,ans,w,ans1,ans2,ans3,k:longint;
begin
readln(n,m,s);
origin;
for i:=1 to n-1 do begin
readln(x,y,z);pos[i]:=y;pos2[i]:=x;ww[i]:=z;
link(x,y,z)
end;
d[0]:=maxlongint;dep:=0;ll:=0;
dfs(s,0,0);
rmq;
for i:=1 to m do begin
read(ch);
if ch=0 then begin
readln(x);
if pp[x]<pp[s] then begin lll:=pp[x];rrr:=pp[s] end else begin lll:=pp[s];rrr:=pp[x] end;
k:=trunc(ln(rrr-lll+1)/ln(2));
lca:=min(f[lll,k],f[rrr-o[k]+1,k]);
ans1:=dis(l[x]);ans2:=dis(l[s]);ans3:=dis(l[lca]);
ans:=ans1+ans2-2*ans3;
writeln(ans);
s:=x
end
else begin
readln(x,w);
if root[pos[x]]=pos2[x] then lll:=pos[x] else lll:=pos2[x];
note(l[lll],r[lll],w-ww[x]);
ww[x]:=w
end
end;
end;
begin
assign(input,'2763.in');reset(input);
assign(output,'2763.out');rewrite(output);
init;
close(input);close(output)
end.