2292: 【POJ Challenge 】永远挑战

2292: 【POJ Challenge 】永远挑战

Time Limit: 10 Sec  Memory Limit: 128 MB
Submit: 553  Solved: 230
[Submit][Status][Discuss]

Description

 

lqp18_31和1tthinking经常出题来虐ftiasch。有一天, lqp18_31搞了一个有向图,每条边的长度都是1。 他想让ftiasch求出点1到点 N 的最短路。"水题啊。", ftiasch这么说道。

所以1tthinking把某些边的长度增加了1（也就是说，每条边的长度不是1就是2）。现在，可怜的ftiasch要向你求助了。

 

Input

 

 

第1行，两个整数 N (1 ≤ N ≤ 10⁵) 和 M (1 ≤ M ≤ 10⁶), 点和边的数量。

第2到 M + 1行: 三个整数 U_i, V_i, W_i (1 ≤ W_i ≤ 2), 从点 U_i 到 V_i 长度为 W_i 的边。

 

Output

 

 

一个整数，表示点1到点N的最短路。数据保证至少存在一条路径。

 

Sample Input

3 3
1 2 1
2 3 1
1 3 2

Sample Output

2

HINT

 

Source

 

题解：乍一看这不是明显的spfa嘛= =，不过要是那样子的话也太没意思了，于是想想别的办法——BFS，这里不是说了最多边权只有2嘛，所以将2的拆成两条边就好啦，然后水水哒BFS

以下是对比——spfa居然慢了这么多，汗QAQ

spfa代码（险些T掉有木有TT）：

/**************************************************************
    Problem: 2292
    User: HansBug
    Language: Pascal
    Result: Accepted
    Time:9528 ms
    Memory:6492 kb
****************************************************************/
 
type
    point=^node;
    node=record
               g,w:longint;
               next:point;
    end;
var
   i,j,k,l,m,n,f,r:longint;
   a:array[0..100005] of point;
   c,g,d:array[0..100005] of longint;
   p:point;
procedure add(x,y,z:longint);
          var p:point;
          begin
               new(p);p^.g:=y;p^.w:=z;p^.next:=a[x];a[x]:=p;
          end;
begin
     readln(n,m);for i:=1 to n do a[i]:=nil;
     for i:=1 to m do
         begin
              readln(j,k,l);
              add(j,k,l);
         end;
     fillchar(c,sizeof(c),255);fillchar(g,sizeof(g),0);
     c[1]:=0;f:=1;r:=2;g[1]:=1;d[1]:=1;
     while f<>r do
           begin
                p:=a[d[f]];
                while p<>nil do
                      begin
                           if (c[p^.g]=-1) or ((c[d[f]]+p^.w)<c[p^.g]) then
                              begin
                                   c[p^.g]:=c[d[f]]+p^.w;
                                   if g[p^.g]=0 then
                                      begin
                                           g[p^.g]:=1;
                                           d[r]:=p^.g;r:=r mod 100005+1;
                                      end;
                              end;
                           p:=p^.next;
                      end;
                g[d[f]]:=0;f:=f mod 100005+1;
           end;
     writeln(c[n]);
     readln;
end.

BFS代码（好吧我承认BFS貌似还是比spfa多了一行）：

/**************************************************************
    Problem: 2292
    User: HansBug
    Language: Pascal
    Result: Accepted
    Time:428 ms
    Memory:10780 kb
****************************************************************/
 
type
    point=^node;
    node=record
               g:longint;
               next:point;
    end;
var
   i,j,k,l,m,n,f,r,t:longint;
   a:array[0..300005] of point;
   c,d:array[0..300005] of longint;
   p:point;
procedure add(x,y:longint);
          var p:point;
          begin
               new(p);p^.g:=y;p^.next:=a[x];a[x]:=p;
          end;
begin
     readln(n,m);t:=n;
     for i:=1 to n*2 do a[i]:=nil;
     for i:=1 to m do
         begin
              readln(j,k,l);
              if l=2 then
                 begin
                      inc(n);
                      add(j,n);add(n,k);
                 end
              else add(j,k);
         end;
     fillchar(c,sizeof(c),255);d[1]:=1;f:=1;r:=2;c[1]:=0;
     while f<r do
           begin
                p:=a[d[f]];
                while p<>nil do
                      begin
                           if c[p^.g]=-1 then
                              begin
                                   c[p^.g]:=c[d[f]]+1;
                                   d[r]:=p^.g;inc(r);
                              end;
                           p:=p^.next;
                      end;
                inc(f);
           end;
     writeln(c[t]);
     readln;
end.