var
  l,n,i,j,min:longint;
  a:array[0..2000]of longint;
  c:array[0..200,0..200]of longint;

procedure go(k,m,x,y,z:longint);
begin
  if k=n+1 then
  begin
    if m<min then min:=m;
    exit;
  end;
  if (a[k]<>x)and(a[k]<>y)and(a[k]<>z) then
  begin
    go(k+1,m+c[x,a[k]],a[k],y,z);
    go(k+1,m+c[y,a[k]],x,a[k],z);
    go(k+1,m+c[z,a[k]],x,y,a[k]);
    exit;
  end;
  go(k+1,m,x,y,z);
end;

begin
  assign(input,'service.in'); reset(input);
  assign(output,'service.out'); rewrite(output);
  readln(l,n);
  for i:=1 to l do
   for j:=1 to l do
   read(c[i,j]);
  for i:=1 to n do read(a[i]);
  min:=maxlongint;
  go(1,0,1,2,3);
  writeln(min);
  close(input);
  close(output);
end.