【动态树】poj3237

题目大意：

     给你一颗树，要求支持下列3个操作：

     1.询问两点之间路径的边中边权最大的；

     2.把两点之间的路径的边权全部取反；

     3.修改某条边的边权。

 

最近想强化下动态树（路径剖分就算了，又慢又丑），spoj上有4道qtree，只可惜家里上spoj太慢。。

ms pku3237这道题比qtree的操作还多一点。

 

 

编了2个小时，花了半个小时调过了样例，交上去TLE了，估计是死循环，写了个数据生成器，发现是数组没清0；

之后又WA了一次，有个特殊情况没判到，就是点A是点B的祖先，之后就A了。。。

随机生成的数据连暴力都比这个动态树快。。不过这道题数据稍微水了点，数据范围也不大。

 

速度比较慢，表喷。。。

 

program poj3237; const mn=10000; var d,next,p,c,e,l,r,w,fa,max,min:array[0..2*mn] of longint; root,o,ff:array[0..mn] of boolean; q:char; i,j,k,a,b,t,n,g,cc,ll,rr,ans,task:longint; procedure update(i:longint); begin ll:=l[i];rr:=r[i]; min[i]:=w[i];max[i]:=w[i]; if min[ll]<min[i] then min[i]:=min[ll]; if min[rr]<min[i] then min[i]:=min[rr]; if max[ll]>max[i] then max[i]:=max[ll]; if max[rr]>max[i] then max[i]:=max[rr]; end; procedure left(var i:longint); begin j:=r[i];r[i]:=l[j];fa[r[i]]:=i;l[j]:=i; update(i);update(j); root[j]:=root[i];root[i]:=false; fa[j]:=fa[i];fa[i]:=j;i:=j; end; procedure right(var i:longint); begin j:=l[i];l[i]:=r[j];fa[l[i]]:=i;r[j]:=i; update(i);update(j); root[j]:=root[i];root[i]:=false; fa[j]:=fa[i];fa[i]:=j;i:=j; end; procedure fan(i:longint); begin if i=0 then exit; ff[i]:=not ff[i];w[i]:=-w[i]; j:=-max[i];max[i]:=-min[i];min[i]:=j; end; procedure splay(var i:longint); begin if ff[i] then begin fan(l[i]);fan(r[i]);ff[i]:=false; end; o[i]:=false; if o[l[i]] then begin splay(l[i]);right(i); end else if o[r[i]] then begin splay(r[i]);left(i); end; end; procedure cut(i,z:longint); begin while not root[i] do begin o[i]:=true;i:=fa[i]; end; splay(i);g:=l[i]; if z=0 then exit; root[g]:=true; l[i]:=0;update(i); end; procedure access(i:longint); begin cut(i,1);t:=i; while fa[i]<>0 do begin cut(fa[i],1);l[fa[i]]:=i; t:=fa[i];k:=t;right(k); end; end; procedure link(a,b,cc:longint); begin inc(t);next[t]:=d[a];d[a]:=t;p[t]:=b;c[t]:=cc end; procedure dfs(i,f:longint);var k:longint; begin fa[i]:=f;root[i]:=true;ff[i]:=false; k:=d[i];l[i]:=0;r[i]:=0; while k<>0 do begin if p[k]<>f then begin e[(k+1)>>1]:=p[k];w[p[k]]:=c[k]; min[p[k]]:=c[k];max[p[k]]:=c[k]; dfs(p[k],i); end;k:=next[k]; end; end; begin readln(task); for task:=1 to task do begin readln(n);t:=0; fillchar(d,sizeof(d),0); max[0]:=-(1<<30);min[0]:=-max[0]; for i:=2 to n do begin readln(a,b,cc); link(a,b,cc);link(b,a,cc); end; dfs(1,0);read(q); while q<>'D' do begin if q='C' then begin read(q,q,q,q,q,a,b);a:=e[a]; cut(a,0);w[a]:=b;update(a); end else if q='N' then begin read(q,q,q,q,q,a,b); access(a);access(b); fan(g);cut(t,0);fan(g); end else if q='Q' then begin read(q,q,q,q,a,b); access(a);access(b); ans:=max[g];cut(t,0); if ans<max[g] then ans:=max[g]; writeln(ans); end; readln;read(q); end;readln; end; end.