<

div style="color: #333333;">

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

输入

<

div style="color: #333333;">

第1行: 两个数, N 和 M

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

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

输出

思路

样例中的图是一个无向图。。。但是其实并不是，读入完以后用Floyd枚举每一个点，但是另外的那个节点k要放在外循环中

var
  f:array[0..1000,0..1000] of longint;
  i,j,k,n,m,s:longint;
  a:array[0..100000] of longint;
begin
  readln(n,m);
  for i:=1 to m do
    readln(a[i]);
  for i:=1 to n do
  begin
    for j:=1 to n do
      read(f[i,j]);
    readln;
  end;
  for k:=1 to n do
    for i:=1 to n do
      for j:=1 to n do
        if (i<>k) and (i<>j) and (k<>j) and (f[i,k]+f[k,j]<f[i,j])
          then f[i,j]:=f[i,k]+f[k,j];
  for i:=1 to m-1 do
    s:=s+f[a[i],a[i+1]];
  writeln(s);
end.