vijos p1193 扫雷

 

描述

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

格式

输入格式

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

输出格式

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

样例1

样例输入1[复制]

 

2
1 1

样例输出1[复制]

 

2

限制

1s

题解：

在前两到状压题的影响下，我采用了当前到第几行，该行是否放了雷以及上一行是否放了雷，在状态转移的时候发现没有一点DP的味道。。。不过还是过了。。。

其实当第一行是否放雷确定后，那么后面的就都确定了，所以答案不会超过2，枚举第一行的状态即可

代码：

1.

var f:array[0..10100,0..1,0..1] of longint;
    n,i,j,k:longint;
    a:array[0..10100] of longint;
procedure init;
 begin
   readln(n);
   for i:=1 to n do read(a[i]);
 end;
procedure main;
 begin
   f[1,1,1]:=0;
   f[1,0,1]:=0;
   f[1,0,0]:=1;
   f[1,1,0]:=1;
   for i:=2 to n+1 do
   if a[i-1]=1 then
    begin
      f[i,1,0]:=f[i-1,0,0];
      f[i,1,1]:=0;
      f[i,0,1]:=f[i-1,1,0];
      f[i,0,0]:=f[i-1,0,1];
    end
   else
   if a[i-1]=2 then
    begin
      f[i,1,0]:=f[i-1,0,1];
      f[i,1,1]:=f[i-1,1,0];
      f[i,0,1]:=f[i-1,1,1];
      f[i,0,0]:=0;
    end
   else
   if a[i-1]=3 then
    begin
      f[i,1,0]:=0;
      f[i,1,1]:=f[i-1,1,1];
      f[i,0,1]:=0;
      f[i,0,0]:=0;
    end
   else
    begin
      f[i,1,0]:=0;
      f[i,1,1]:=0;
      f[i,0,0]:=f[i-1,0,0];
      f[i,0,1]:=0;
    end;
   writeln(f[n+1,0,1]+f[n+1,0,0]);
   end;
begin
  assign(input,'input.txt');assign(output,'output.txt');
  reset(input);rewrite(output);
  init;
  main;
  close(input);close(output);
end.      

2.

var a,b:array[0..12000] of longint;
    ans,i,n:longint;
function check:boolean;
 var i,t:longint;
   begin
     b[2]:=a[1]-b[1];
     for i:=2 to n do
      begin
        t:=b[i]+b[i-1];
        if (t>a[i]) or (t+1<a[i]) then exit(false);
        b[i+1]:=a[i]-t;
      end;
     exit(b[i+1]<>1);
   end;

begin
  assign(input,'input.txt');assign(output,'output.txt');
  reset(input);rewrite(output);
  readln(n);
  for i:=1 to n do read(a[i]);
  ans:=0;
  for i:=0 to 1 do
   begin
     b[1]:=i;
     if check then inc(ans);
   end;
  writeln(ans);
  close(input);close(output);
end.