bzoj1084

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

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

显然分类讨论dp，

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

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

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

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

const inf=1000000007;
var f:array[0..110,0..110,0..5] of longint;
    a:array[0..110,0..2] 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:=1 to n do
    for j:=1 to m do
      read(a[i,j]);
  if m=1 then
  begin
    for i:=0 to k do
    begin
      f[1,i,0]:=-inf;
      f[1,i,1]:=-inf;
    end;
    f[1,1,1]:=a[1,1];
    f[1,0,0]:=0;
    for i:=2 to n do
    begin
      for j:=0 to k do
      begin
        f[i,j,0]:=max(f[i-1,j,1],f[i-1,j,0]);
        if j=0 then f[i,j,1]:=-inf
        else f[i,j,1]:=max(max(f[i-1,j,1],f[i-1,j-1,1]),f[i-1,j-1,0])+a[i,1];
      end;
    end;
    writeln(max(f[n,k,1],f[n,k,0]));
  end
  else begin
    for i:=0 to k do
      for j:=0 to 4 do
        f[1,i,j]:=-inf;
    f[1,0,0]:=0;
    f[1,1,1]:=a[1,1];
    f[1,1,2]:=a[1,2];
    f[1,2,3]:=a[1,1]+a[1,2];
    f[1,1,4]:=a[1,1]+a[1,2];
    for i:=2 to n do
      for j:=0 to k do
      begin
        f[i,j,0]:=-inf;
        for p:=0 to 4 do
          f[i,j,0]:=max(f[i,j,0],f[i-1,j,p]);

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

        f[i,j,2]:=f[i-1,j-1,0];
        f[i,j,2]:=max(f[i,j,2],max(f[i-1,j,2],f[i-1,j-1,2]));
        f[i,j,2]:=max(f[i,j,2],max(f[i-1,j-1,1],f[i-1,j-1,4]));
        f[i,j,2]:=max(f[i,j,2],max(f[i-1,j,3],f[i-1,j-1,3]))+a[i,2];

        f[i,j,4]:=max(f[i-1,j-1,4],f[i-1,j,4]);
        for p:=0 to 3 do
          f[i,j,4]:=max(f[i,j,4],f[i-1,j-1,p]);
        f[i,j,4]:=f[i,j,4]+a[i,1]+a[i,2];

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