摘要：
1 var 2 max,u,v,ans,s,i,j,k,n,m:longint; 3 p,sum:array[0..100000,0..20]of longint; 4 f,d,x:Array[0..100000]of longint; 5 procedure dou(a:longint); 6 var now,i,j,k:longint; 7 begin 8 now:=x[a]; 9 if a=1 then begin if now=s then inc(ans); exit;end;10 k:=trunc(ln(d[a])/ln(2));11 for ... 阅读全文
摘要：
var sum,ee,q,xx,yy,deep,u,c,v,k,i,j,n,m:longint; len,p:array[0..100000,0..20]of longint; a,next,long,e,head,d,f:array[0..100000]of longint;function lca(a,b:longint):longint; var tt,i,j,k:longint; begin if d[a]>d[b] then begin tt:=a;a:=b;b:=tt;end; k:=trunc(ln(d[b])/ln(2)); for i:=k downto 0 ... 阅读全文
摘要：
1 var 2 ans,u,v,x,tot,kk,i,j,k,l,n,m,ee,s,t:longint; 3 d,last,next,long,other,e,head,num:array[0..200000]of longint; 4 5 function min(aa,bb:longint):longint; 6 begin 7 if aa>bb then exit(bb) 8 else exit(aa); 9 end;10 11 procedure add(u,v,c:longint);12 begin13 inc(kk);14 other[kk]... 阅读全文