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

1088: [SCOI2005]扫雷Mine

2024-08-10 10:38:22   219人阅读

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..20000] of 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])>=0) and ((a[x-1]-b[x-2]-b[x-1])<=1) then
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[1] then
27                      begin
28                           if doit(3) then inc(k);
29                      end;
30              end;
31      writeln(k);

32 end.         

1088: [SCOI2005]扫雷Mine


联系
我们