3386/1752: [Usaco2004 Nov]Til the Cows Come Home 带奶牛回家

3386/1752: [Usaco2004 Nov]Til the Cows Come Home 带奶牛回家

Time Limit: 1 Sec  Memory Limit: 128 MB
Submit: 39  Solved: 14
[Submit][Status][Discuss]

Description

    贝茜在谷仓外的农场上，她想回到谷仓，在第二天早晨农夫约翰叫她起来挤奶之前尽可能多地睡上一觉．由于需要睡个好觉，贝茜必须尽快回到谷仓．农夫约翰的农场上有N(2≤N≤1000)个路标，每一个路标都有唯一的编号（1到N）．路标1是谷仓，路标N是贝茜一整天呆在那里的果树园．农场的所有路标之间共有T(1≤T≤2000)条不同长度的供奶牛走的有向小路．贝茜对她识别方向的能力不是很自信，所以她每次总是从一条小路的头走到尾，再以这条路的尾作为下一条路的头开始走．  现给出所有路标之间的小路，要求输出贝茜回到谷仓的最短路程（每组输入数据都保证有解）．

Input

    第1行：2个整数T和N．

    第2到T+1行：每行用空格隔开的三个整数描述一条小路．前两个整数是这条小路的尾和头，

第三个整数是这条小路的长度（不大于100）．

Output

 

    一个整数，表示贝茜从路标N到路标1所经过的最短路程

Sample Input

5 5
1 2 20
2 3 30
3 4 20
4 5 20
1 5 100

Sample Output

90

共有5个路标，贝茜可以依次经过路标4，3，2，1到家

HINT

 

Source

Gold

题解：么么哒又是一道双倍经验水题= =（HansBug：还有话说这不是最短路模板题么= =）

按照惯例，我还是贴两个代码，我只笑笑不说话

 /**************************************************************
     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,f,r:longint;
    a:array[..] of point;
    c,g:array[..] of longint;
    d:array[..] 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(m,n);
      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;
      fillchar(g,sizeof(g),);
      fillchar(c,sizeof(c),-);
      c[]:=;f:=;r:=;d[]:=;g[]:=;
      while f<r do
            begin
                 p:=a[d[f]];
                 while p<>nil do
                       begin
                            if (c[p^.g]=-) or (c[p^.g]>(c[d[f]]+p^.w)) then
                               begin
                                    c[p^.g]:=c[d[f]]+p^.w;
                                    if g[p^.g]= then
                                       begin
                                            g[p^.g]:=;
                                            d[r]:=p^.g;
                                            inc(r);
                                       end;
                               end;
                            p:=p^.next;
                       end;
                 g[d[f]]:=;inc(f);
            end;
      writeln(c[n]);
      readln;
 end.    

 /**************************************************************
     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,f,r:longint;
    a:array[..] of point;
    c,g:array[..] of longint;
    d:array[..] 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(m,n);
      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;
      fillchar(g,sizeof(g),);
      fillchar(c,sizeof(c),-);
      c[]:=;f:=;r:=;d[]:=;g[]:=;
      while f<r do
            begin
                 p:=a[d[f]];
                 while p<>nil do
                       begin
                            if (c[p^.g]=-) or (c[p^.g]>(c[d[f]]+p^.w)) then
                               begin
                                    c[p^.g]:=c[d[f]]+p^.w;
                                    if g[p^.g]= then
                                       begin
                                            g[p^.g]:=;
                                            d[r]:=p^.g;
                                            inc(r);
                                       end;
                               end;
                            p:=p^.next;
                       end;
                 g[d[f]]:=;inc(f);
            end;
      writeln(c[n]);
      readln;
 end.