poj1062

经典的图论建模题；

先拿开的等级问题不看；

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

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

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

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

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

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

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