bzoj1820

水dp，状态表示三个司机当前在哪所用最小耗油，因为有一个一定在当前点所以可以压掉一维

var f,w,d:array[0..210,0..210] of longint;
    a:array[0..1010] of longint;
    x,y,i,j,k,n,ans:longint;

function min(a,b:longint):longint;
  begin
    if a>b then exit(b) else exit(a);
  end;

procedure clear;
  var i,j:longint;
  begin
    for i:=1 to n do
      for j:=i to n do
        f[i,j]:=1000000007;
  end;

procedure get(a,b:longint);
  begin
    if a>b then
    begin
      x:=b;
      y:=a;
    end
    else begin
      x:=a;
      y:=b;
    end;
  end;

begin
  readln(n);
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      read(d[i,j]);
      w[i,j]:=1000000007;
    end;
    readln;
  end;
  w[2,3]:=0;
  a[0]:=1;
  i:=0;
  while not eoln do
  begin
    inc(i);
    read(a[i]);
    clear;
    for j:=1 to n do
      for k:=j to n do
      begin
        f[j,k]:=min(f[j,k],w[j,k]+d[a[i-1],a[i]]);
        get(a[i-1],j);
        f[x,y]:=min(f[x,y],w[j,k]+d[k,a[i]]);
        get(a[i-1],k);
        f[x,y]:=min(f[x,y],w[j,k]+d[j,a[i]]);
      end;
    w:=f;
  end;
  ans:=2147483647;
  for i:=1 to n do
  begin
    for j:=i to n do
      ans:=min(ans,f[i,j]);
  end;
  writeln(ans);
end.