【pku3237】动态树

好久没搞麻烦数据结构了，因此借此题练练手，顺便巩固巩固这神奇的动态树

题目大意很简洁，就是要求你设计一个数据结构，支持3种操作：

改一个边的边权，把i到j的路径上所有边取反，询问i到j的路径上的最大值

题目很简洁，思路自然也简洁了，就动态树强做嘛！

但实现的时候，还是有一些技巧的，比方说取反，其实只要把i到根取反，再把j到根取反，自然就是把i到j取反了

这里我发现要对i到j的路径进行操作，有通法，如下：

先ACCESS(I);再ACCESS(J)的时候，会发现j往上提的过程中碰到的最后一条路径会是之前i那条，那么这个时候就可以完成你需要的路径操作了，包括算lca什么的都可以这个时候算，只是有时候要注意如果i是j的祖先要处理一下

还有，本题由于有取反标记，所以splay过程要反着来，即先递归到根，再旋（跟平常的splay差不多），有很多细节要注意！！

另外，由于有取反操作，max会变成-min，所以要维护两个值，即max和min

 

代码的话，有点丑，速度嘛。。还行吧

program syj; {dynamic tree} const maxn=10000+5; oo=maxlongint shr 1; var tmp,i,task,n,e,x,y,z,tt:longint; u,h,a,b,c,l,r,max,min,fa,p:array[0..maxn]of longint; o:array[0..maxn]of boolean; fan,root:array[0..maxn]of boolean; next,point,w:array[1..maxn*2]of longint; st:string[6]; procedure dfs(i,ii:longint); var j,k:longint; begin j:=h[i];fa[i]:=ii;root[i]:=true; l[i]:=0;r[i]:=0;max[i]:=u[i];min[i]:=u[i]; while j<>0 do begin k:=point[j]; if k<>ii then begin u[k]:=w[j]; p[(j+1) div 2]:=k; dfs(k,i); end; j:=next[j]; end; end; procedure update(i:longint); var ll,rr:longint; begin ll:=l[i];rr:=r[i]; min[i]:=u[i];max[i]:=u[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); var j:longint; begin j:=r[i]; r[i]:=l[j]; l[j]:=i; fa[j]:=fa[i]; fa[i]:=j; if r[i]<>0 then fa[r[i]]:=i; update(i); update(j); root[j]:=root[i]; root[i]:=false; i:=j; end; procedure right(var i:longint); var j:longint; begin j:=l[i]; l[i]:=r[j]; r[j]:=i; fa[j]:=fa[i]; fa[i]:=j; if l[i]<>0 then fa[l[i]]:=i; update(i); update(j); root[j]:=root[i]; root[i]:=false; i:=j; end; procedure put(i:longint); var z:longint; begin if i=0 then exit; fan[i]:=not fan[i]; z:=max[i];max[i]:=-min[i];min[i]:=-z;u[i]:=-u[i]; end; procedure splay(var i:longint); begin if fan[i] then begin put(l[i]);put(r[i]); fan[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); var j:longint; begin j:=i; while not root[j] do begin o[j]:=true;j:=fa[j]; end; splay(j); tmp:=max[l[i]]; if z=0 then exit; root[l[i]]:=true; l[i]:=0; update(i); end; procedure access(i:longint); var j:longint; begin cut(i,1); while fa[i]<>0 do begin cut(fa[i],1); j:=fa[i]; if max[i]>tmp then tmp:=max[i]; root[j]:=false; l[j]:=r[i]; r[i]:=j; if l[j]<>0 then fa[l[j]]:=j; fa[i]:=fa[j]; fa[j]:=i; update(j); update(i); end; end; begin readln(task); for task:=1 to task do begin readln(n); e:=0;tt:=0; fillchar(h,sizeof(h),0); for i:=1 to n-1 do begin readln(a[i],b[i],c[i]);x:=a[i];y:=b[i];z:=c[i]; inc(e); next[e]:=h[x];point[e]:=y;w[e]:=z;h[x]:=e; inc(e); next[e]:=h[y];point[e]:=x;w[e]:=z;h[y]:=e; end; dfs(1,0); max[0]:=-oo; min[0]:=oo; read(st); while st[1]<>'D' do begin readln(x,y); if st[1]='C' then begin z:=p[x]; cut(z,0); u[z]:=y; c[x]:=y; update(z); end else if st[1]='N' then begin access(x); put(x); access(y); put(y); end else begin if x<>y then begin access(x); access(y); end else tmp:=0; writeln(tmp); end; read(st); end; end; end.

 

哎呀，这题我调了差不多6.7个小时，while盾哥3个小时不到就调完了！悲剧兮~~