【图论】【poj 1062】昂贵的聘礼

问题

Description

年轻的探险家来到了一个印第安部落里。在那里他和酋长的女儿相爱了，于是便向酋长去求亲。酋长要他用10000个金币作为聘礼才答应把女儿嫁给他。探险家拿不出这么多金币，便请求酋长降低要求。酋长说："嗯，如果你能够替我弄到大祭司的皮袄，我可以只要8000金币。如果你能够弄来他的水晶球，那么只要5000金币就行了。"探险家就跑到大祭司那里，向他要求皮袄或水晶球，大祭司要他用金币来换，或者替他弄来其他的东西，他可以降低价格。探险家于是又跑到其他地方，其他人也提出了类似的要求，或者直接用金币换，或者找到其他东西就可以降低价格。不过探险家没必要用多样东西去换一样东西，因为不会得到更低的价格。探险家现在很需要你的帮忙，让他用最少的金币娶到自己的心上人。另外他要告诉你的是，在这个部落里，等级观念十分森严。地位差距超过一定限制的两个人之间不会进行任何形式的直接接触，包括交易。他是一个外来人，所以可以不受这些限制。但是如果他和某个地位较低的人进行了交易，地位较高的的人不会再和他交易，他们认为这样等于是间接接触，反过来也一样。因此你需要在考虑所有的情况以后给他提供一个最好的方案。
为了方便起见，我们把所有的物品从1开始进行编号，酋长的允诺也看作一个物品，并且编号总是1。每个物品都有对应的价格P，主人的地位等级L，以及一系列的替代品Ti和该替代品所对应的"优惠"Vi。如果两人地位等级差距超过了M，就不能"间接交易"。你必须根据这些数据来计算出探险家最少需要多少金币才能娶到酋长的女儿。

Input

输入第一行是两个整数M，N（1 <= N <= 100），依次表示地位等级差距限制和物品的总数。接下来按照编号从小到大依次给出了N个物品的描述。每个物品的描述开头是三个非负整数P、L、X（X < N），依次表示该物品的价格、主人的地位等级和替代品总数。接下来X行每行包括两个整数T和V，分别表示替代品的编号和"优惠价格"。

Output

输出最少需要的金币数。

Sample Input

1 4
10000 3 2
2 8000
3 5000
1000 2 1
4 200
3000 2 1
4 200
50 2 0

Sample Output

5250

分析

首先是构图，每个点本身有权，不是最短路？我们采用虚拟节点的思想，虚拟一个0节点。改点到每个点的边的权，即为每个点的价值，这样做之后，我们就把看似复杂的问题转化成了一个求最短路的问题。只需要求零号节点到1号节点的最短路即可，显然一个spfa。

但是还存在问题——等级。

我们用枚举的思想枚举等级区间，保证区间中的最大元素和最小元素的差值不超过题目中的限制。然后在做最短路时，只需判断当前点是否位于等级区间内，即可。

由于数据范围不大，这样的算法是完全正确的

code

program liukee;
var
  a:array[0..100,0..100] of longint;
  map:array[0..100,0..100] of longint;
  dj,d:array[0..100] of longint;
  v:array[0..100000] of boolean;
  q:array[0..100000] of longint;
  n,m:longint;
  low,high,min:longint;

procedure init;
var
  i,j,y,yy,p,l,x:longint;
begin
  readln(m,n);
  for i:=1 to n do
  begin
    readln(p,l,x);
       dj[i]:=l;
    inc(a[0,0]);
    a[0,a[0,0]]:=i;
    map[0,i]:=p;
    for j:=1 to x do
    begin
      readln(y,yy);
      inc(a[y,0]);
      a[y,a[y,0]]:=i;
      map[y,i]:=yy;
    end;
  end;
end;

procedure spfa;
var
  i,l,r,now:longint;
begin
  for i:=1 to n do d[i]:=maxlongint>>1;
  l:=0;
  r:=1;
  q[1]:=0;
  v[0]:=true;
  while l<r do
  begin
    inc(l);
    now:=q[l];
    v[now]:=false;
    for i:=1 to a[now,0] do
      if (d[a[now,i]]>d[now]+map[now,a[now,i]])and(dj[a[now,i]]>=low)and(dj[a[now,i]]<=high)then
      begin
        d[a[now,i]]:=d[now]+map[now,a[now,i]];
        if not(v[a[now,i]])then
        begin
          inc(r);
          q[r]:=a[now,i];
          v[q[r]]:=true;
        end;
      end;
  end;
end;

begin
  init;
  min:=maxlongint;
  for low:=dj[1]-m to dj[1] do
  begin
    high:=low+m;
    if high<dj[1] then continue;
    spfa;
    if d[1]<>maxlongint>>1 then
      if d[1]<min then min:=d[1];
  end;
  writeln(min);
end.

反思

虚拟节点的思想很重要，特别是图中除了边上本身的权值之外，还存在额外的权值时。

对于比较难解决的问题，我们可以采用暴力一点的枚举思想，往往会得到正解。