bzoj1820

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

 var f,w,d:array[..,..] of longint;
     a:array[..] 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:= to n do
       for j:=i to n do
         f[i,j]:=;
   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:= to n do
   begin
     for j:= to n do
     begin
       read(d[i,j]);
       w[i,j]:=;
     end;
     readln;
   end;
   w[,]:=;
   a[]:=;
   i:=;
   while not eoln do
   begin
     inc(i);
     read(a[i]);
     clear;
     for j:= to n do
       for k:=j to n do
       begin
         f[j,k]:=min(f[j,k],w[j,k]+d[a[i-],a[i]]);
         get(a[i-],j);
         f[x,y]:=min(f[x,y],w[j,k]+d[k,a[i]]);
         get(a[i-],k);
         f[x,y]:=min(f[x,y],w[j,k]+d[j,a[i]]);
       end;
     w:=f;
   end;
   ans:=;
   for i:= to n do
   begin
     for j:=i to n do
       ans:=min(ans,f[i,j]);
   end;
   writeln(ans);
 end.