扫雷【SCOI2005一试】

四、扫雷 (Mine)

      相信大家都玩过扫雷的游戏。那是在一个n*m的矩阵里面有一些雷，要你根据一些信息找出雷来。万圣节到了，“余”人国流行起了一种简单的扫雷游戏，这个游戏规则和扫雷一样，如果某个格子没有雷，那么它里面的数字表示和它8连通的格子里面雷的数目。现在棋盘是n×2的，第一列里面某些格子是雷，而第二列没有雷，如下图：

                             

由于第一列的雷可能有多种方案满足第二列的数的限制，你的任务即根据第二列的信息确定第一列雷有多少种摆放方案。

输入文件：

     第一行为N，第二行有N个数，依次为第二列的格子中的数。（1<= N <= 10000）

输出文件：

     一个数，即第一列中雷的摆放方案数。

Sample Input

2

1 1

Sample Output

2

、、、、、、、、、、、、、、、、、、、、、、

        姑且认为这是Dp吧。。。。大家都这么说，最开始我以为是递推，不过后来发现也不算严格的递推。。。。。

       这道题的结果其实只有三种情况，0、1、2，所以，骗分也不是不可以，就要看你人品怎么样了，看哪个数字更幸运。。。。。

       因为右边每个格子可以管辖的是左边相邻的三个格子，而且只有0、1、2、3个雷，所以，一旦前两个格子确定了，第三个格子也就确定了。。。。。

    动规的边界根据第一个格子的情况来定，a[1]=3,因为第一个格子只能管2个格子，所以直接输出0；a[1]=2，则两个格子必定各有一个，则f[1]=1,f[2]=1，然后Dp；a[1]=1，则可能是第一个格子里有一个，也可能是第二个格子里有一个，所以f[1]=1，Dp一遍，然后f[2]=1，再Dp一遍，中间一定要把f清零。。。。

var n,ans:longint;
    a,f:array[0..20000]of longint;
procedure init;
  var i:longint;
    begin
      readln(n);
      for i:=1 to n do read(a[i]);
      ans:=0;
      fillchar(f,sizeof(f),0);
    end;
procedure find;
  var i:longint;
    begin
      for i:=3 to n do 
        f[i]:=a[i-1]-f[i-1]-f[i-2];
      if f[n]+f[n-1]=a[n] then inc(ans);
    end;
procedure main;
  var i,j:longint;
    begin
      if a[1]=2 then //因为ans的初值为0，所以a[1]=3的情况不必讨论
        begin
          f[1]:=1;
          f[2]:=1;
          find;
        end
      else
      if a[1]=1 then 
        begin
          f[1]:=1;
          find;
          fillchar(f,sizeof(f),0);
          f[2]:=1;
          find;
        end
      else
      if a[1]=0 then find;
      writeln(ans);
    end;
begin
 assign(input,'mine.in');reset(input);
 assign(output,'mine.out');rewrite(output);
  init;
  main;
 close(input);close(output);
end.