[Poj 2387][Usaco2004 Nov]Til the Cows Come Home 带奶牛回家

本文主要是介绍[Poj 2387][Usaco2004 Nov]Til the Cows Come Home 带奶牛回家，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

[Usaco2004 Nov]Til the Cows Come Home 带奶牛回家

时间限制: 1 Sec 内存限制: 128 MB

题目描述

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

输入

第1行：2个整数T和N．
第2到T+1行：每行用空格隔开的三个整数描述一条小路．前两个整数是这条小路的尾和头，
第三个整数是这条小路的长度（不大于100）．

输出

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

样例输入

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

样例输出

提示

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

要判重！
要判重！
要判重！
重要的事情说三遍！
dijkstra需要判重，SPFA不用

邻接矩阵的Dijkstra

varn,m,p:longint;i,j:longint;min,t:longint;a,b,c:longint;w:array[0..1000,0..1000]of longint;dist,s:array[0..1000]of longint;
beginreadln(m,n); p:=1;for i:=1 to m dobeginreadln(a,b,c);if ((w[a,b]<>0)and(c<w[a,b]))or(w[a,b]=0) //**判重！！！**thenbeginw[a,b]:=c;w[b,a]:=c;end;end;for i:=1 to n dodist[i]:=maxlongint;dist[n]:=0;while s[0]<>n dobeginmin:=maxlongint;for i:=1 to n doif (dist[i]<min)and(s[i]=0)then begin min:=dist[i]; t:=i; end;for i:=1 to n doif (s[i]=0)and(w[t,i]<>0)and(dist[t]+w[t,i]<dist[i])then dist[i]:=dist[t]+w[t,i];s[t]:=1; inc(s[0]);if s[p]=1 then break;end;writeln(dist[p]);
end.

邻接矩阵的SPFA

varw:array[0..1000,1..1000]of longint;p,dist:array[0..1000]of longint;t:array[0..10000]of longint;i,j,k:longint;a,b,c,x,y,tt:longint;n,m,start,finish:longint;head,tail:longint;
beginreadln(m,n);for i:=1 to m dobeginreadln(a,b,c);if (w[a,b]=0)or((w[a,b]<>0)and(c<w[a,b]))thenbeginw[a,b]:=c;w[b,a]:=c;end;end;start:=n; finish:=1;for i:=1 to n dodist[i]:=100000;dist[start]:=0;head:=1; tail:=2; t[1]:=start; p[start]:=1;while head<tail dobeginx:=head; y:=tail;for i:=head to tail-1 dobeginfor j:=1 to n doif (w[t[i],j]<>0)and(dist[t[i]]+w[t[i],j]<dist[j])thenbegindist[j]:=dist[t[i]]+w[t[i],j];if p[j]=0then begin t[y]:=j; inc(y); end;end;inc(x);p[t[i]]:=0;end;head:=x; tail:=y;end;writeln(dist[finish]);
end.

邻接链表的SPFA

varw:array[0..10000,1..3]of longint;p,dist:array[0..1000]of longint;t:array[0..10000]of longint;i,j,k:longint;a,b,c,x,y,tt:longint;n,m,start,finish:longint;head,tail:longint;
beginreadln(m,n); k:=n+1;for i:=1 to m dobeginreadln(a,b,c);w[k,1]:=b;w[k,2]:=c;if w[a,3]=0then w[a,3]:=kelse w[w[a,1],3]:=k;w[a,1]:=k;inc(k);w[k,1]:=a;w[k,2]:=c;if w[b,3]=0then w[b,3]:=kelse w[w[b,1],3]:=k;w[b,1]:=k;inc(k);end;start:=n; finish:=1;for i:=1 to n dodist[i]:=100000;dist[start]:=0;head:=1; tail:=2; t[1]:=start; p[start]:=1;while head<tail dobeginx:=head; y:=tail;for i:=head to tail-1 dobegintt:=w[t[i],3];while tt<>0 dobeginif dist[t[i]]+w[tt,2]<dist[w[tt,1]]thenbegindist[w[tt,1]]:=dist[t[i]]+w[tt,2];if p[w[tt,1]]=0then begin t[y]:=w[tt,1]; inc(y); end;end;tt:=w[tt,3];end;inc(x);p[t[i]]:=0;end;head:=x; tail:=y;end;writeln(dist[finish]);
end.