bzoj1088 枚举ss

1088: [SCOI2005]扫雷Mine

Time Limit: 10 Sec   Memory Limit: 162 MB
Submit: 3637   Solved: 2132
[ Submit][ Status][ Discuss]

Description

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

Input

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

Output

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

Sample Input

2
1 1

Sample Output

2

不难发现，摆放方案与第一行第二列数字有关

若a[1]=0则b[1]=b[2]=0  枚举求方案数

若a[1]=1则 b[1]=1;b[2]=0;枚举求方案sum1，b[1]=0;b[2]=1;枚举求方案sum2;方案数即sum1+sum2

若a[1]=2则b[1]=b[2]=1 枚举求方案即可

无形划水最为致命（我不会告诉你我只是为了更新）

var
  i,j,k,n,sum:longint;
  a,b:array[0..10001]of longint;
procedure doit;
  var
    i,j,k,t:longint;
  begin
    for i:=2 to n-1 do
    begin
      t:=b[i-1]+b[i];
      if a[i]-t<0 then exit;
      b[i+1]:=a[i]-t;
    end;
    if (b[n-1]+b[n]=a[n]) then inc(sum);
  end;
begin
  readln(n);
  sum:=0;
  for i:=1 to n do
    read(a[i]);
  fillchar(b,sizeof(b),0);
  if a[1]=0 then begin b[1]:=0;b[2]:=0;doit;end;
  if a[1]=1 then begin b[1]:=1;doit;b[1]:=0;b[2]:=1;doit;end;
  if a[1]=2 then begin b[1]:=1;b[2]:=1;doit;end;
  writeln(sum);
end.