2015: [Usaco2010 Feb]Chocolate Giving

2015: [Usaco2010 Feb]Chocolate Giving

Time Limit: 10 Sec  Memory Limit: 162 MB
Submit: 269  Solved: 183
[Submit][Status]

Description

Farmer John有B头奶牛(1<=B<=25000)，有N(2*B<=N<=50000)个农场，编号1-N，有M(N-1<=M<=100000)条双向边，第i条边连接农场R_i和S_i(1<=R_i<=N;1<=S_i<=N)，该边的长度是L_i(1<=L_i<=2000)。居住在农场P_i的奶牛A(1<=P_i<=N)，它想送一份新年礼物给居住在农场Q_i(1<=Q_i<=N)的奶牛B，但是奶牛A必须先到FJ(居住在编号1的农场)那里取礼物，然后再送给奶牛B。你的任务是：奶牛A至少需要走多远的路程？

Input

　　第1行：三个整数：N,M,B。

   　第2..M+1行：每行三个整数：R_i,S_i和L_i，描述一条边的信息。

　　第M+2..M+B+1行：共B行，每行两个整数P_i和Q_i，表示住在P_i农场的奶牛送礼物给住在Q_i农场的奶牛。

　　

Output

　　样例输出：

　　共B行，每行一个整数，表示住在P_i农场的奶牛送礼给住在Q_i农场的奶牛至少需要走的路程

　

Sample Input

6 7 3

　　1 2 3

　　5 4 3

　　3 1 1

　　6 1 9

　　3 4 2

　　1 4 4

　　3 2 2

　　2 4

　　5 1

　　3 6

Sample Output

　6

　6

10

HINT

 

Source

Silver

题解：继续领略SPFA的强大，就是这样——喵^_^

/**************************************************************
    Problem: 2015
    User: HansBug
    Language: Pascal
    Result: Accepted
    Time:352 ms
    Memory:5096 kb
****************************************************************/
 
type
    point=^node;
    node=record
               g,w:longint;
               next:point;
    end;
var
   i,j,k,l,m,n,t:longint;
   a:array[0..200000] of point;
   b,c:array[0..200000] of longint;
procedure add(x,y,z:longint);inline;
          var p:point;
          begin
               new(p);p^.g:=y;p^.w:=z;
               p^.next:=a[x];a[x]:=p;
          end;
procedure spfa(x:longint);inline;
          var i,j,k,l,f,r:longint;p:point;
          begin
               b[1]:=x;f:=1;r:=2;
               fillchar(c,sizeof(c),0);
               c[x]:=1;
               while f<r do
                     begin
                          p:=a[b[f]];
                          while p<>nil do
                                begin
                                     if (c[p^.g]=0) or (c[p^.g]>(c[b[f]]+p^.w)) then
                                        begin
                                             c[p^.g]:=c[b[f]]+p^.w;
                                             b[r]:=p^.g;
                                             inc(r);
                                        end;
                                     p:=p^.next;
                                end;
                          inc(f);
                     end;
               for i:=1 to n do dec(c[i]);
          end;
begin
     readln(n,m,t);
     for i:=1 to n do a[i]:=nil;
     for i:=1 to m do
         begin
              readln(j,k,l);
              add(j,k,l);add(k,j,l);
         end;
     spfa(1);
     for i:=1 to t do
         begin
              readln(j,k);
              writeln(c[j]+c[k]);
         end;
end.