vijos_1460_拉力赛_LCA tarjan离线算法

题目大意

   车展结束后，游乐园决定举办一次盛大的山道拉力赛，平平和韵韵自然也要来参加大赛。 赛场上共有n个连通的计时点，n-1条赛道（构成了一棵树）。每个计时点的高度都不相同（父结点的高度必然大于子结点），相邻计时点间由赛道相连。由于马力不够，所以韵韵的遥控车只能从高处驶向低处。而且韵韵的车跑完每条赛道都需花费一定的时间。 举办方共拟举办m个赛段的比赛，每次从第u个计时点到第v个计时点，当然其中有不少比赛韵韵的遥控车是不能参加的（因为要上坡）。平平想知道他能参加多少个赛段的比赛，并且想知道他完成这些赛段的总用时。 赛道皆为单向。

分析

  一(meng)眼(bi)的看出如果一次比赛的起点(u)和终点(v)的最近公共祖先不是u或v中的其中一个的话，那必然无法完成。

  所以可以用tarjan离线算法算出LCA。

  距离的话可以定义个数组dis,dis[i]表示根节点到点i的距离。

  点v,u的距离=dis[v]+dis[u]-2*dis[u,v的最近公共祖先]

  dis可以用dfs预处理出。

  我是和这位仁(shui)兄(bi)做的——戳两下

  注意数据范围，一开始错了很多次。

  话说我的代码很不优美，我自己都看不下去了。

代码

type  arr=record    x,y,w:longint;    next:longint;end;var  a,g:array[1..100010] of arr;  fa,v,v1:array[1..100010] of longint;  dis:array[1..100010] of int64;  ls,ls1:array[1..100010] of longint;  nm,nm1:longint;  n,m:longint;  i,j,k,l,z:longint;  ans,ans2:int64;procedure add(x,y,w:longint);begin  nm:=nm+1;  a[nm].x:=x;  a[nm].y:=y;  a[nm].w:=w;  a[nm].next:=ls[x];  ls[x]:=nm;end;function find(x:longint):longint;begin  if fa[x]=x    then exit(x)    else      begin        find:=find(fa[x]);        fa[x]:=find;      end;end;procedure union(x,y:longint);var  i,j:longint;begin  i:=find(x); j:=find(y);  fa[i]:=j;end;procedure dfs(r:longint);var  i,j,k:longint;begin  i:=ls[r];  while i<>0 do    begin      with a[i] do        begin          dfs(y);          union(y,x);          v[y]:=1;          i:=next;        end;    end;  i:=ls1[r];  while i<>0 do    begin      with g[i] do        begin          if v[y]=1            then              if find(y)=x                then                  begin                    ans:=ans+1;                    ans2:=ans2+dis[y]-dis[x];                  end;          i:=next;        end;    end;end;procedure di(r:longint);var  i,j,k:longint;begin  i:=ls[r];  while i<>0 do    with a[i] do      begin        dis[y]:=dis[r]+w;        di(y);        i:=next;      end;end;begin  fillchar(ls,sizeof(ls),0);  fillchar(ls1,sizeof(ls1),0);  fillchar(v,sizeof(v),0);  fillchar(v1,sizeof(v1),0);  nm:=0; nm1:=0;  ans:=0; ans2:=0;  readln(n,m);  for i:=1 to n-1 do    begin      readln(j,k,l);      add(j,k,l);      v1[k]:=1;    end;  di(1);  for i:=1 to m do    begin      readln(j,k);      nm1:=nm1+1;      g[nm1].x:=j;      g[nm1].y:=k;      g[nm1].next:=ls1[j];      ls1[j]:=nm1;    end;  for i:=1 to n do    fa[i]:=i;  for i:=1 to n do    if v1[i]=0 then dfs(i);  writeln(ans);  writeln(ans2);end.