bzoj1084

乍一看这题好难，根本不会；

直到看到1<=m<=2……

显然分类讨论dp，

很快想到这题的dp和poj2430相类似

m=2的时候f[i,j,k]表示到第i行用了j个矩阵结尾状态为k时最大权值和

k=0~4表示5种结尾可能的状态

转移很类似poj2430，这里就不赘述了

 const inf=;
 var f:array[..,..,..] of longint;
     a:array[..,..] of longint;
     ans,i,j,p,k,n,m:longint;

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

 begin
   readln(n,m,k);
   for i:= to n do
     for j:= to m do
       read(a[i,j]);
   if m= then
   begin
     for i:= to k do
     begin
       f[,i,]:=-inf;
       f[,i,]:=-inf;
     end;
     f[,,]:=a[,];
     f[,,]:=;
     for i:= to n do
     begin
       for j:= to k do
       begin
         f[i,j,]:=max(f[i-,j,],f[i-,j,]);
         if j= then f[i,j,]:=-inf
         else f[i,j,]:=max(max(f[i-,j,],f[i-,j-,]),f[i-,j-,])+a[i,];
       end;
     end;
     writeln(max(f[n,k,],f[n,k,]));
   end
   else begin
     for i:= to k do
       for j:= to  do
         f[,i,j]:=-inf;
     f[,,]:=;
     f[,,]:=a[,];
     f[,,]:=a[,];
     f[,,]:=a[,]+a[,];
     f[,,]:=a[,]+a[,];
     for i:= to n do
       for j:= to k do
       begin
         f[i,j,]:=-inf;
         for p:= to  do
           f[i,j,]:=max(f[i,j,],f[i-,j,p]);

         if j= then
         begin
           for p:= to  do
             f[i,j,p]:=-inf;
           continue;
         end;
         f[i,j,]:=f[i-,j-,];
         f[i,j,]:=max(f[i,j,],max(f[i-,j,],f[i-,j-,]));
         f[i,j,]:=max(f[i,j,],max(f[i-,j-,],f[i-,j-,]));
         f[i,j,]:=max(f[i,j,],max(f[i-,j,],f[i-,j-,]))+a[i,];

         f[i,j,]:=f[i-,j-,];
         f[i,j,]:=max(f[i,j,],max(f[i-,j,],f[i-,j-,]));
         f[i,j,]:=max(f[i,j,],max(f[i-,j-,],f[i-,j-,]));
         f[i,j,]:=max(f[i,j,],max(f[i-,j,],f[i-,j-,]))+a[i,];

         f[i,j,]:=max(f[i-,j-,],f[i-,j,]);
         for p:= to  do
           f[i,j,]:=max(f[i,j,],f[i-,j-,p]);
         f[i,j,]:=f[i,j,]+a[i,]+a[i,];

         if j< then
         begin
           f[i,j,]:=-inf;
           continue;
         end;
         f[i,j,]:=f[i-,j,];
         f[i,j,]:=max(f[i,j,],max(f[i-,j-,],f[i-,j-,]));
         f[i,j,]:=max(f[i,j,],f[i-,j-,]);
         f[i,j,]:=max(f[i,j,],max(f[i-,j-,],f[i-,j-,]))+a[i,]+a[i,];
       end;
     ans:=-inf;
     for i:= to  do
       ans:=max(ans,f[n,k,i]);
     writeln(ans);
   end;
 end.