昂贵的聘礼_poj1062

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作为起点连接每一件物品，路的权值为它们的原价。找到一条从0出发终点为1的单向最小费用路径即是答案所求。注意枚举他们的等级差距以找到最优方案。

源代码：

var n,m:Longint;
d,l:array[0..150]of longint;
mark:array[0..150]of boolean;
a:array[0..150,0..150]of longint;
procedure dijk;
var i,j,min,u:longint;
begin
  for i:=1 to n do d[i]:=a[0,i];
  for j:=1 to n do
  begin
    min:=maxlongint;
    for i:=1 to n do
    if (not mark[i])and(d[i]<min)then
    begin
      u:=i;
      min:=d[i];
    end;
    if min=maxlongint then break;
    mark[u]:=true;
    for i:=1 to n do
    if (not mark[i])and(d[u]+a[u,i]<d[i])and(a[u,i]>0)then
    d[i]:=min+a[u,i];
  end;
end;
function solve:longint;
var g,i,j,k:longint;
begin
  solve:=maxlongint;
  for i:=1 to n do
  begin
    g:=l[i];
    for j:=1 to n do
    if (l[j]>g)or(l[j]<g-m) then
    mark[j]:=true
    else
    mark[j]:=false;
    dijk;
    if solve>d[1] then
    solve:=d[1];
  end;
end;
procedure init;
var i,j,x,y,z:Longint;
begin
  readln(m,n);
  for i:=1 to n do
  begin
    readln(z,l[i],y);
    a[0,i]:=z;
    for j:=1 to y do
    begin
      readln(x,z);
      a[x,i]:=z;
    end;
  end;
end;
begin
  init;
  writeln(solve);
end.