首页 > 代码库 > 1088: [SCOI2005]扫雷Mine

1088: [SCOI2005]扫雷Mine

1088: [SCOI2005]扫雷Mine

Time Limit: 10 Sec  Memory Limit: 162 MB
Submit: 1635  Solved: 979
[Submit][Status]

Description

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

Input

第一行为N,第二行有N个数,依次为第二列的格子中的数。(1<= N <= 10000)

Output

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

Sample Input

2
1 1

Sample Output

2

HINT

Source

 

题解:本来看到扫雷一下子就像到了那个大的不得了的扫雷数字图,然后这个还要DP求种类数,QAQ吓傻(HansBug:直到后来看到才两行= =,而且第二行还全空 phile:呵呵哒,那岂不是秒杀 HansBug:求不鄙视TT) ,在仔细想想,那岂不是只要确定了前两个的值,那么后面的全都至多有一种摆放方式了么???(惊呼——),所以我就呵呵赖(论1<=N<=10000这个条件究竟是为了吓唬我等蒟蒻还是用来障眼的呢?嗯哼^_X)

 

 1 var
 2    i,j,k,l,m,n:longint;
 3    a,b,c:array[0..20000of longint;
 4 function doit(x:longint):boolean;
 5          begin
 6               if x>n then
 7                  begin
 8                       if (a[x-1]-b[x-2]-b[x-1])=0 then exit(true) else exit(false);
 9                  end;
10               if ((a[x-1]-b[x-2]-b[x-1])>=0and ((a[x-1]-b[x-2]-b[x-1])<=1then
11                  begin
12                       b[x]:=a[x-1]-b[x-2]-b[x-1];
13                       exit(doit(x+1));
14                  end;
15               exit(false);
16          end;
17 begin
18      readln(n);
19      for i:=1 to n do
20          read(a[i]);
21      readln;k:=0;
22      for i:=0 to 1 do
23          for j:=0 to 1 do
24              begin
25                   b[1]:=i;b[2]:=j;
26                   if (b[1]+b[2])=a[1then
27                      begin
28                           if doit(3then inc(k);
29                      end;
30              end;
31      writeln(k);

32 end.         

1088: [SCOI2005]扫雷Mine