Description
在桑给巴尔岛的Adelton城镇上有一个旅游机构。它们决定在提供许多的其它吸引之外,再向客人们提供旅游本镇的服务。 为了从提供的吸引服务中尽可能地获利,这个旅游机构接收了一个精明决定:在相同的起点与终点之间找出一最短路线。
Input
你的任务是编写一条程序来找类似的的一条路线。在这个镇上,有N个十字路口(编号1至N),两个十字路口之间可以有多条道路连接,有M条道路(编号为1至M)。但没有一条道路从一个十字路口出发又回到同一个路口。每一条观光路线都是由一些路组成的,这些道路序号是:y1, …, yk,且k>2。第yi(1<=i<=k-1)号路是连接第xi号十字路口和第x[i+1]号十字路口的;其中第yk号路是连接第xk号十字路口和第x[k+1]号十字路口。而且所有的这些x1,…,xk分别代表不同路口的序号。在某一条观光路线上所有道路的长度的和就是这条观光路线的总长度。换言之L(y1)+L(y2)+…+L(yk)的和, L(yi)就是第yi号观光路线的长度。你的程序必须找出类似的一条路线:长度必须最小,或者说明在这个城镇上不存在这条观光路线。
Output
每组数据的第一行包含两个正整数:十字路口的个数N(N<=100),另一个是道路的 数目M(M<10000)。接下来的每一行描述一条路:每一行有三个正整数:这条路连接的两个路口的编号,以及这条路的长度(小于500的正整数)。
Sample Input
每一行输出都是一个答案。如果这条观光路线是不存在的话就显示“No solution”;或者输出这条最短路线的长度。
Sample Output
样例1
5 7
1 4 1
1 3 300
3 1 10
1 2 16
2 3 100
2 5 15
5 3 20
样例2
4 3
1 2 10
1 3 20
1 4 30
-1
Hint
样例1
61
样例2
No solution
代码:
var
a,f:array [0..100,0..100] of longint;
n,m,ans,j,k,i,x,y:longint;
procedure init;
begin
readln(n,m);
for i:=0 to n do
for j:=0 to n do
begin
a[i,j]:=10000000;
f[i,j]:=a[i,j];
end;
for i:=1 to m do
begin
readln(x,y,a[x,y]);
a[y,x]:=a[x,y];
f[x,y]:=a[x,y];
f[y,x]:=f[x,y];
end;
ans:=f[0,0];
end;
begin
init;
for k:=1 to n do
begin
for i:=1 to n do
for j:=i+1 to n do
if a[i,j]+f[i,k]+f[k,j]<ans then
ans:=a[i,j]+f[i,k]+f[k,j];
for i:=1 to n do
for j:=1 to n do
if a[i,k]+a[k,j]<a[i,j] then
a[i,j]:=a[i,k]+a[k,j];
end;
if ans<>f[0,0] then
writeln(ans)
else writeln('No solution');
end.