Description
经历了一段艰辛的旅程后,主人公小P乘坐飞艇返回。在返回的途中,小P发现在漫无边际的沙漠中,有一块狭长的绿地特别显眼。往下仔细一看,才发现这是一个游乐场,专为旅途中疲惫的人设计。娱乐场可以看成是一块大小为n×m的区域,且这个n×m的区域被分成n×m个小格子,每个小格子中就有一个娱乐项目。然而,小P并不喜欢其中的所有娱乐项目,于是,他给每个项目一个满意度。满意度为正时表示小P喜欢这个项目,值越大表示越喜欢。为负时表示他不喜欢,这个负数的绝对值越大表示他越不喜欢。为0时表示他对这个项目没有喜恶。小P决定将飞艇停在某个小格中,然后每步他可以移动到相邻的上下左右四个格子的某个格子中。小P希望找一条路径,从飞艇所在格出发,最后又回到这个格子。小P有一个习惯,从不喜欢浪费时间。因此,他希望经过每个格子都是有意义的:他到一个地方后,就一定要感受以下那里的惊险和刺激,不管自己是不是喜欢那里的娱乐项目。而且,除了飞艇所在格,其他的格子他不愿意经过两次。小P希望自己至少要经过四个格子。 在满足这些条件的情况下,小P希望自己玩过的娱乐项目的满意度之和最高。你能帮他找到这个最高的满意度之和吗?
Input
输入文件中的第一行为两个正整数n和m,表示游乐场的大小为n×m。因为这个娱乐场很狭窄,所以n和m满足:2<=n<=100,2<=m<=6。 接下来的n行,每行有m个整数,第i行第j列表示游乐场的第i行第j列的小格子中的娱乐项目的满意度,这个满意度的范围是[-1000,1000]。同一行的两个整数之间用空格隔开。
Output
输出文件中仅一行为一个整数,表示最高的满意度之和。
Sample Input
4 4
100 300 -400 400
-100 1000 1000 1000
-100 -100 -100 -100
-100 -100 -100 1000
Sample Output
4000
HINT
大家测下这个数据
5 5
1 1 -100 3 3
1 1 -100 3 3
1 1 -100 3 3
1 1 -100 3 3
1 1 -100 3 3
结果是30?
第二道插头DP,插头DP还是陈丹琦说得好
多看论文有助于各方面知识的提高,看吧
做了两道,感想就是空间一定要开足,你要算出你用多少,我开少了就WA了
每一种情况要搞清楚最好是自己画一下图,讨论一下,在提交之前先自己随机几个大数据,确认没有什么明显的错误再交
![](https://images.cnblogs.com/OutliningIndicators/ContractedBlock.gif)
1 var 2 a:array[0..101,0..8]of longint; 3 f:array[0..101,0..8,0..16384]of longint; 4 flag:array[0..16384]of boolean; 5 g:array[0..16384,0..8]of longint; 6 s,z:array[0..8]of longint; 7 n,m,ans:longint; 8 9 function pd(k:longint):boolean; 10 var 11 i,j,save:longint; 12 begin 13 j:=0; 14 save:=k; 15 for i:=1 to m+1 do 16 begin 17 s[i]:=k and 3; 18 if s[i]=3 then exit(false); 19 if (j>0)and(s[z[j]]=1)and(s[i]=2) then 20 begin 21 g[save,z[j]]:=i; 22 g[save,i]:=z[j]; 23 dec(j); 24 end 25 else 26 if (s[i]=1)or(s[i]=2) then 27 begin 28 inc(j); 29 z[j]:=i; 30 end; 31 k:=k>>2; 32 end; 33 if j=0 then exit(true); 34 exit(false); 35 end; 36 37 function max(x,y:longint):longint; 38 begin 39 if x>y then exit(x); 40 exit(y); 41 end; 42 43 procedure init; 44 var 45 i,j:longint; 46 begin 47 read(n,m); 48 for i:=1 to n do 49 for j:=1 to m do 50 read(a[i,j]); 51 fillchar(f,sizeof(f),1<<7); 52 f[0,m,0]:=0; 53 ans:=-maxlongint; 54 end; 55 56 procedure work; 57 var 58 i,j,k:longint; 59 begin 60 for k:=0 to 1<<(m<<1+2)-1 do 61 flag[k]:=pd(k); 62 for i:=1 to n do 63 for j:=1 to m do 64 if j=1 then 65 begin 66 for k:=0 to 1<<(m<<1)-1 do 67 if flag[k] then 68 begin 69 if k and 3=0 then 70 begin 71 f[i,j,k<<2]:=max(f[i-1,m,k],f[i,j,k<<2]); 72 f[i,j,k<<2+9]:=max(f[i-1,m,k]+a[i,j],f[i,j,k<<2+9]); 73 end 74 else 75 if k and 3=1 then 76 begin 77 f[i,j,k<<2]:=max(f[i-1,m,k]+a[i,j],f[i,j,k<<2]); 78 f[i,j,k<<2-3]:=max(f[i-1,m,k]+a[i,j],f[i,j,k<<2-3]); 79 end; 80 end; 81 end 82 else 83 begin 84 for k:=0 to 1<<(m<<1+2)-1 do 85 if flag[k] then 86 begin 87 if k and(3<<(j<<1-2))=0 then 88 begin 89 if k and(3<<(j<<1))=0 then 90 begin 91 f[i,j,k+9<<(j<<1-2)]:=max(f[i,j-1,k]+a[i,j],f[i,j,k+9<<(j<<1-2)]); 92 f[i,j,k]:=max(f[i,j,k],f[i,j-1,k]); 93 end 94 else 95 if k and(3<<(j<<1))=1<<(j<<1) then 96 begin 97 f[i,j,k]:=max(f[i,j-1,k]+a[i,j],f[i,j,k]); 98 f[i,j,k-3<<(j<<1-2)]:=max(f[i,j-1,k]+a[i,j],f[i,j,k-3<<(j<<1-2)]); 99 end 100 else 101 if k and(3<<(j<<1))=2<<(j<<1) then 102 begin 103 f[i,j,k]:=max(f[i,j-1,k]+a[i,j],f[i,j,k]); 104 f[i,j,k-3<<(j<<1-1)]:=max(f[i,j-1,k]+a[i,j],f[i,j,k-3<<(j<<1-1)]); 105 end; 106 end 107 else 108 if k and(3<<(j<<1-2))=1<<(j<<1-2) then 109 begin 110 if k and(3<<(j<<1))=0 then 111 begin 112 f[i,j,k]:=max(f[i,j-1,k]+a[i,j],f[i,j,k]); 113 f[i,j,k+3<<(j<<1-2)]:=max(f[i,j-1,k]+a[i,j],f[i,j,k]); 114 end 115 else 116 if k and(3<<(j<<1))=1<<(j<<1) then f[i,j,k-1<<(g[k,j+1]<<1-2)-5<<(j<<1-2)]:=max(f[i,j-1,k]+a[i,j],f[i,j,k-1<<(g[k,j+1]<<1-2)-5<<(j<<1-2)]) 117 else 118 if k and(3<<(j<<1))=2<<(j<<1) then if k=9<<(j<<1-2) then ans:=max(f[i,j-1,k]+a[i,j],ans); 119 end 120 else 121 if k and(3<<(j<<1-2))=2<<(j<<1-2) then 122 begin 123 if k and(3<<(j<<1))=0 then 124 begin 125 f[i,j,k]:=max(f[i,j-1,k]+a[i,j],f[i,j,k]); 126 f[i,j,k+3<<(j<<1-1)]:=max(f[i,j-1,k]+a[i,j],f[i,j,k+3<<(j<<1-1)]); 127 end 128 else 129 if k and(3<<(j<<1))=1<<(j<<1) then f[i,j,k-3<<(j<<1-1)]:=max(f[i,j-1,k]+a[i,j],f[i,j,k-3<<(j<<1-1)]) 130 else 131 if k and(3<<(j<<1))=2<<(j<<1) then f[i,j,k+1<<(g[k,j]<<1-2)-5<<(j<<1-1)]:=max(f[i,j-1,k]+a[i,j],f[i,j,k+1<<(g[k,j]<<1-2)-5<<(j<<1-1)]); 132 end; 133 end; 134 end; 135 write(ans); 136 end; 137 138 begin 139 init; 140 work; 141 end.