Description
这是一个很难的问题,你要找出“12345678987654321!”答案里一共含有多少个“0”,“!”表示阶乘的意思。
其实,我是在开玩笑的,地球上没有人真正能成功的解决这个问题。
实际上,我是一个间谍,我从敌人手中偷取了一些很重要的秘密,我只想以尽量少的时间离开敌人的基地。
敌人的基地地图可以用一张网络图表示,交叉路口可表示为结点,通路可表示为边,我需要从基地总部逃出到撤离点。到底怎样走才最快呢?幸好我有一台超强的掌上电脑,请尽快帮我解决这个问题!
Input
数据第一行是两个整数N和M,(1<=N<=200,0<=M<=10000),分别表示交叉路口数量与通路数量。接下来M行每行有三个整数i,j,k(i!=j,1<=k<=10000),表示有一条长度为k的无向通路连接路口i与路口j。注意路口i与路口j间可能有多条不同长度的通路。
你可以假定交叉路口是用1到n的整数来标识的,编号1是基地总部,编号n是撤离
Output
输出只有一个整数,为最短的逃离距离,如果不可能逃出,则输出“-1”。
Solutions
练个手而已,见代码
代码
var
n,m:longint;
a:array [0..201,0..201] of longint;
function min(o,p:longint):longint;
begin
if o<p then exit(o);
exit(p);
end;
procedure init;
var
i,x,y,z:longint;
begin
fillchar(a,sizeof(a),63);
readln(n,m);
for i:=1 to m do
begin
readln(x,y,z);
a[x,y]:=min(a[x,y],z);
a[y,x]:=min(a[y,x],z);
end;
for i:=1 to n do
a[i,i]:=0;
end;
procedure floyd;
var
i,j,k:longint;
begin
for k:=1 to n do
for i:=1 to n do
for j:=1 to n do
a[i,j]:=min(a[i,j],a[i,k]+a[k,j]);
end;
begin
init;
floyd;
if a[1,n]=a[0,0] then writeln('-1')
else writeln(a[1,n]);
end.