危险系数——jzoj 1391

题目描述

    FJ在一条船上，海上有N(1<=N<=100)岛，编号为1..N,现在他的任务是按照一个给定访问次序A_1,A_2,….A_M去探索这M(2<=M<=10,000)个岛屿，已经知道任意两个岛屿之间的危险系数，让你找出一个探索序列，只需满足你的探索序列包含给定的A_1..A_M这个序列就可以(不一定要连续),使得总的危险系数最小。



输入

第1行: 两个数, N 和 M


第 2..M+1行: 第i+1行表示给定的序列中第i个岛屿A_i


第M+2..N+M+1行：每行N个整数，表示岛屿之间的危险系数，对角线上一定是0。



输出

输出满足要求的最小危险系数



样例输入

3 4
1
2
1
3
0 5 1
5 0 2
1 2 0

样例输出

7

数据范围限制


提示

【样例说明】


输出解释:我们可以按照1，3，2，3，1,3的顺序去探索，满足了规定了序列是该序列的字序列，危险系数为(1,3)+(3,2)+(2,3)+(3,1)+(1,3)=7。

题解：这道题可以用floyed算法。

r n,m,i,j,k,ans:longint;
    a:array[0..100,0..100] of longint;
    b:array[0..10000] of longint;
begin
  readln(n,m);
  for i:=1 to m do
  readln(b[i]);
  for i:=1 to n do
   for j:=1 to n do
   read(a[i,j]);
   for k:=1 to n do
    begin
      for i:=1 to n do
        begin
          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;
    end;
    for i:=1 to m-1 do
    inc(ans,a[b[i],b[i+1]]);
    writeln(ans);
end.