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:
     User: HansBug
     Language: Pascal
     Result: Accepted
     Time: ms
     Memory: kb
 ****************************************************************/

 type
     point=^node;
     node=record
                g,w:longint;
                next:point;
     end;
 var
    i,j,k,l,m,n,t:longint;
    a:array[..] of point;
    b,c:array[..] 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[]:=x;f:=;r:=;
                fillchar(c,sizeof(c),);
                c[x]:=;
                while f<r do
                      begin
                           p:=a[b[f]];
                           while p<>nil do
                                 begin
                                      if (c[p^.g]=) 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:= to n do dec(c[i]);
           end;
 begin
      readln(n,m,t);
      for i:= to n do a[i]:=nil;
      for i:= to m do
          begin
               readln(j,k,l);
               add(j,k,l);add(k,j,l);
          end;
      spfa();
      for i:= to t do
          begin
               readln(j,k);
               writeln(c[j]+c[k]);
          end;
 end.