1187: [HNOI2007]神奇游乐园 - BZOJ

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了

每一种情况要搞清楚最好是自己画一下图，讨论一下，在提交之前先自己随机几个大数据，确认没有什么明显的错误再交

 

  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.

View Code