pku1038状态压缩dp

额，其实我是dp菜，这道题是看了N个大牛的题解写过的，速度也不是很快。

题目大意：

  一个n*m的矩阵，往里放2*3的多米诺骨牌，其中矩阵有些地方是坏的，这些地方不能放。

简略题解：

  很显然应该用状态压缩的dp，因为n <=150,m<=10，怎样存储状态和转移状态呢？我想了很长时间都没想出来，其实是这样的，因为每个骨牌能不能接上只与上一列的状态有关，所以用四进制保存上一列的状态，然后滚动数组转移，然后就这样，应该是不会超内存也不会超时吧。

 附程序：

program pku_1038; var f:array[0..2,0..60000] of longint; sum,a:array[0..12] of longint; vc:array[0..160,0..13] of boolean; n,m,k,p:longint; {-----------------------------------------} procedure makeit(x:longint); var i:longint; begin for i:=1 to m do begin a[i]:=x mod 3; x:=x div 3; end; end; {-----------------------------------------} procedure dfs(x,y,z:longint); begin if x>m then begin if (f[1,y]<f[0,k]+z) then f[1,y]:=f[0,k]+z; exit; end; if (a[x]=0) then dfs(x+1,y+sum[x],z) else begin dfs(x+1,y+sum[x]*2,z); if (x<m-1) and (a[x+1]>0) and (a[x+2]>0) then if vc[p,x] and vc[p,x+1] and vc[p,x+2] and vc[p+1,x] and vc[p+1,x+1] and vc[p+1,x+2] then dfs(x+3,y,z+1); if (x<m) and (a[x]=2) and (a[x+1]=2) then if vc[p-1,x] and vc[p-1,x+1] and vc[p,x] and vc[p,x+1] and vc[p+1,x] and vc[p+1,x+1] then dfs(x+2,y,z+1); end; end; {-----------------------------------------} procedure main; var i,x,y,tot,testcase:longint; begin sum[1]:=1; for i:=2 to 11 do sum[i]:=sum[i-1]*3; readln(testcase); while testcase>0 do begin dec(testcase); fillchar(vc,sizeof(vc),true); readln(n,m,tot); for i:=1 to tot do begin readln(x,y);vc[x,y]:=false; end; fillchar(f,sizeof(f),255); f[0,0]:=0; for p:=0 to n-1 do begin for i:=0 to sum[m+1] do f[1,i]:=-1; for k:=0 to sum[m+1] do if f[0,k]>=0 then begin makeit(k); dfs(1,0,0); end; for i:=0 to sum[m+1] do f[0,i]:=f[1,i]; end; y:=0; for i:=0 to sum[m+1] do if f[1,i]>y then y:=f[1,i]; writeln(y); end; end; {-----------------------------------------} begin main; end.