[CodeVs2645] Spore

Spore

题目描述 Description

某陈和某Y 最近对一个游戏着迷.那是Electronic Arts 今年发布的优秀的模拟经营类游戏,Spore. 在Spore 中,玩家将经历从单细胞生物到星系的统治者的进化过程,创造并守护你自己的文明. 而某陈在经历了几天*几十分钟/天的游戏后,也终于已经近乎通关了. 目前,某陈统治着银河系中标号1 到N 的星系,而他的帝国中心,在星系1 的某颗美丽的行星之上.如同所有银河系中的文 明一样,贸易,发展,结盟,扩张,抵抗Grox[银河系中心的庞大的强悍的恐怖的邪恶帝国]的侵略. 某陈有足够的力量,他的疆域蔓延几百个光年.可是Grox 异常强大,他们的飞船出现在某陈了解的任何地方,并时常攻击任 何位置的某陈和盟友的单位[飞船,建筑,星球,甚至星系].战争在所难免. 某陈将从帝国中心去标号为N 的星系,他疆域的边缘,去寻找一个可能存在的通向银河系中心的黑洞.他要计划一条合适的 路线. 从星系g1 到达g2,某陈需要花费c1 的代价[主要是燃料,另外还有与沿途Grox 的势力作战的花费],c1 小于0 则是因为 这样的星系旅行,会给某陈带来收益[来源于物流差价,以及一些殖民地的税收..].相应地,c2 则是代表从星系g2 到达g1 的代价.据某陈了解,共有M 条这样的星系间路径. 为了战备,他需要选择一条总代价最小的路线.

输入描述 Input Description

输入文件包括多组数据. 对于每一组数据,第一行有2 个整数n,m,如题目描述中的含义,1<=n<=1000,0<=m<=10000. 接下来的m 行,每行会有四个整数g1,g2,c1,c2,如题目描述中的含义.0<=g1,g2<=n.输入数据保证所有整数都在[- 10000..10000]的范围内. n=0,m=0 标识着输入数据的结束.每个输入文件包含不超过10 组数据.

输出描述 Output Description

对于每组输入数据,输出一行,为从星系1 到星系N 的最小代价的路线的代价. 如果这样的路线不存在,输出’No such path’.

样例输入 Sample Input

3 2
1 2 2 -1
2 3 0 1
0 0

样例输出 Sample Output

2

题解

• 题目巨长，实际上是从倒数第四行开始
• SPFA求最短路，’No such path’分为无路可走和负环两种情况
• 然而我只得了80分

80分

var
 w:array[0..23000,1..3]of longint;
 x,s,dist:array[0..1010]of longint;
 t:array[0..70000]of longint;
 i,j,k:longint;
 m,n,len,a,b,c,d,head,tail,start,finish,tt,v,flag:longint;
procedure init(a,b,c:longint);
begin
 w[len,1]:=b; w[len,2]:=c;
 if w[a,3]=0
 then w[a,3]:=len else w[w[a,1],3]:=len;
 w[a,1]:=len; inc(len);
end;

begin
 readln(n,m);
 while (n<>0)or(m<>0) do
 begin
 len:=n+1;
 for i:=1 to m do
  begin
   readln(a,b,c,d);
   init(a,b,c); init(b,a,d);
  end;
 start:=1; finish:=n;
 for i:=1 to n do
  begin
   dist[i]:=999999;
   x[i]:=0;
  end;
 flag:=0; head:=1; tail:=2; t[head]:=start; s[start]:=1; dist[start]:=0;
 while head<tail do
  begin
   v:=t[head]; tt:=w[v,3];
   while tt<>0 do
    begin
     if w[tt,2]+dist[v]<dist[w[tt,1]]
     then begin
      dist[w[tt,1]]:=w[tt,2]+dist[v];
      inc(x[w[tt,1]]); if x[w[tt,1]]>n then begin flag:=1; break;end;
      if s[w[tt,1]]=0
      then begin s[w[tt,1]]:=1; t[tail]:=w[tt,1]; inc(tail); end;
     end;
      tt:=w[tt,3];
    end;
   if flag=1 then break; s[v]:=0; inc(head);
  end;
 if (dist[finish]=999999)or(flag=1)
 then writeln('No such path')
 else writeln(dist[finish]);
 for i:=1 to len do
  for j:=1 to 3 do
   w[i,j]:=0;
 readln(n,m);
 end;
end.