poj 1062
昂贵的聘礼
Time Limit: 1000MS
Memory Limit: 10000K
Total Submissions: 18289
Accepted: 4880
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
一道很基础的最短路问题…………
每件物品是一个点
设置一个点S,将每个点到它的距离设为每个点的价值
如果a的替代品为b,则a,b之间距离设为优惠价格
枚举区间
View Code
var
m,n,i,j,x,x1,x2:longint;
v:array[0..101] of boolean;
a:array[0..101,0..101] of longint;
temp:array[0..101,0..101] of longint;
p,l:array[0..101] of longint;
min,k,l0,ll,rr,ii,ans:longint;
begin
assign(input,'input.in');
assign(output,'output.out');
reset(input);
rewrite(output);
readln(m,n);
for i:=1 to n+1 do
for j:=1 to n+1 do
a[i,j]:=maxlongint;
for i:=1 to n do
begin
readln(p[i],l[i],x);
a[i,n+1]:=p[i];
for j:=1 to x do
begin
readln(x1,x2);
a[i,x1]:=x2;
end;
end;
ans:=maxlongint;
temp:=a;
l0:=l[1];
for ii:=0 to m do
begin
ll:=l0-ii;
rr:=ll+m;
l[n+1]:=l[1];
a:=temp;
fillchar(v,sizeof(v),false);
v[1]:=true;
for j:=2 to n+1 do
begin
min:=maxlongint;
for i:=1 to n+1 do
if (not v[i]) and (a[1,i]>0) and (a[1,i]<min) and (l[i]>=ll) and (l[i]<=rr) then
begin
min:=a[1,i];
k:=i;
end;
v[k]:=true;
for i:=1 to n+1 do
if a[k,i]<>maxlongint then
if ((a[1,k]+a[k,i]<a[1,i]) or (a[1,i]=maxlongint) ) and (l[i]>=ll) and (l[i]<=rr)then
a[1,i]:=a[1,k]+a[k,i];
end;
if a[1,n+1]<ans then ans:=a[1,n+1];
end;
writeln(ans);
close(input);
close(output);
end.