呼啦啦呼啦啦

哟哟哟噗噗噗~~

【裸SPFA】星门跳跃

题目:星门跳跃

问题编号:341

题目描述

在EVE游戏中,宇宙被划分成为许多区域,每个区域中都有数目不定的星门,可以通过星门来跳跃到特定的区域(星门是双向的)。
现在你正参与BBE联军与MLGBD联盟的会战,但由于飞船受损,需要尽快回到后方的友军空间站进行维护。
试编写程序,计算出所须的最短的返回空间站时间。
为了简化问题,我们约定飞船所在的位置为区域1,空间站所在的位置为区域N。

问题规模:
对于80%的数据,1<N<=10000,1<M<50000;
对于100%的数据,1<N<=30000,1<M<150000,1<=X[],Y[]<=N,1<=Z[]<=4096;

输入格式

第1行,两个整数N,M,分别为区域的总数和星门的总数;
第2..M+1行,每行三个整数X[i],Y[i],Z[i],分别为星门连接的两个区域,以及跳跃所需时间;

输出格式

一个整数,返回空间站所需的最短时间。

样例输入

样例一
5 3
1 4 5
4 5 1
1 2 7

样例二
10 11
1 2 3
2 3 4
3 4 5
4 5 6
5 6 7
6 7 8
7 8 9
8 9 10
9 10 11
1 5 7
6 9 3

 

样例输出

样例一
6

样例二
28

=================

裸的SPFA

========================

type
  pnode=^node;
  node=record
         x,t:longint;
         next:pnode;
       end;
var
  n,m:longint;
  ti:array[1..30000]of pnode;
  dis:array[1..30000]of longint;
  f_bo:array[1..30000]of boolean;
  h:array[1..200000]of longint;
procedure init;
begin
  assign(input,'rq341.in');
  assign(output,'rq341.out');
  reset(input); rewrite(output);
end;

procedure terminate;
begin
  close(input); close(output);
  halt;
end;

procedure insert(x,y,t:longint);
var
  p:pnode;
begin
  new(p);
  p^.t:=t; p^.x:=y;
  p^.next:=ti[x]; ti[x]:=p;
end;

procedure spfa;
var
  l,r:longint;
  x:longint;
  p:pnode;
begin
  fillchar(dis,sizeof(dis),$7);
  fillchar(f_bo,sizeof(f_bo),true);
  dis[1]:=0;
  f_bo[1]:=false;
  l:=0; r:=1;
  h[r]:=1;
  repeat
    inc(l);
    x:=h[l];
    p:=ti[x];
    while p<>nil do
      begin
        if dis[x]+p^.t<dis[p^.x] then
          begin
            dis[p^.x]:=dis[x]+p^.t;
            if f_bo[p^.x] then
              begin
                inc(r);
                h[r]:=p^.x;
                f_bo[p^.x]:=false;
              end;
          end;
        f_bo[x]:=true;
        p:=p^.next;
      end;
  until l>=r;
  writeln(dis[n]);
end;

procedure main;
var
  i:longint;
  x,y,t:longint;
begin
  readln(n,m);
  for i:=1 to n do ti[i]:=nil;
  for i:=1 to m do
    begin
      readln(x,y,t);
      insert(x,y,t);
      insert(y,x,t);
    end;
  spfa;
end;

begin
  init;
  main;
  terminate;
end.


 

阅读更多
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭