poj1062

经典的图论建模题；

先拿开的等级问题不看；

每个物品本身的价格就是有一个自定义源点到这个点距离；

有了A物品B物品优惠为W就代表由B到A的有向路权值为W；

最后的最小花费就是源点的点1的最短路径（酋长编号总是1）；

然后我们再考虑等级问题。穷举每个点作为最高等级，相应的就可以确定哪些点不能访问，然后求最短路；

最终找一个以点i等级为最高等级的情况使源点到1的最短路径最小即可，易知时间复杂度为O(n^3);

var tree:array[0..80000] of integer;
    x,y:array[0..10010] of longint;
    a:array[0..20010] of longint;         //表示离散化乎的标号对应的区间
    f:array[0..10000000] of boolean;
    ff:array[0..10010] of boolean;
    i,j,k,n,t,s:longint;
procedure sort(l,r: longint);
  var i,j,x,y: longint;
  begin
    i:=l;
    j:=r;
    x:=a[(l+r) div 2];
    repeat
      while a[i]<x do inc(i);
      while x<a[j] do dec(j);
      if not(i>j) then
      begin
        y:=a[i];
        a[i]:=a[j];
        a[j]:=y;
        inc(i);
        j:=j-1;
      end;
    until i>j;
    if l<j then sort(l,j);
    if i<r then sort(i,r);
  end;
procedure putdown(i,p,q:longint);         //传递标记
  begin
    if p<>q then
    begin
      tree[i*2]:=tree[i];
      tree[i*2+1]:=tree[i];
      tree[i]:=0;
    end;
  end;
procedure build(i,p,q,l,r,x:longint);
  var m:longint;
  begin
    if (a[p]>=l) and (r>=a[q]) then tree[i]:=x
    else begin
      if tree[i]<>0 then putdown(i,p,q);
      m:=(p+q) div 2;
      if l<=a[m] then
      begin
        build(i*2,p,m,l,r,x);
      end;
      if r>a[m] then
      begin
        build(i*2+1,m+1,q,l,r,x);
      end;
    end;
  end;
procedure dfs(i,p,q:longint);              //统计多少可见海报
  var m:longint;
  begin
    if (tree[i]>0) and not ff[tree[i]] then
    begin
      s:=s+1;
      ff[tree[i]]:=true;
    end
    else if (tree[i]=0) and (p<>q) then
    begin
      m:=(p+q) div 2;
      dfs(i*2,p,m);
      dfs(i*2+1,m+1,q);
    end;
  end;
begin
  readln(t);
  for i:=1 to t do
  begin
    k:=0;
    fillchar(f,sizeof(f),false);
    readln(n);                        
    for j:=1 to n do 
    begin
      readln(x[j],y[j]);
      if not f[x[j]] then                        //离散化
      begin
        k:=k+1;
        a[k]:=x[j];
        f[x[j]]:=true;
      end;
      if not f[y[j]] then
      begin
        k:=k+1;
        a[k]:=y[j];
        f[y[j]]:=true;
      end;
    end;
    sort(1,k);
    fillchar(tree,sizeof(tree),0);
    for j:=1 to n do                     
      build(1,1,k,x[j],y[j],j);
    s:=0;
    fillchar(ff,sizeof(ff),false);
    dfs(1,1,k);
    writeln(s);
  end;
end.

PS：千万不要以为酋长等级最高……