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.