90分。。。

7号数据？

标准0，我输出1？？

经典递推哈...

a[i]=f[i]+f+f

f[i]=a[i]-f-f

只有当最后一个数为1时,答案才有可能为2

只有当最后一个数为0 1 2时,答案有可能为1

当最后一个数为3时,答案一定是0

然后递推吧

问我为什么?自己好好想想

简单题。。随便DP下

谁说数据有错误的。。。害我交以前又吓了下。。。

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

写楼下题解

不麻烦

枚举第一个，

后面的就全确定了，

判断是否符合条件就行了

Zly 你的程序 全错阿

begin

write('3');

end.

试试看吧!

为什么 我 什么都想不到 ~

动规我 看成搜索

数学公式我看成搜索

这个题目我仍然看成搜索

我郁闷啊 ~

但是还是过了 ~

……

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

应该最多是3种方案 0 1 2

由于没有0，因此只有0,1,2三种答案

测试数据有问题，输入的数字不够多

根据多年题解经验..0-2种..0 0..大家可以试着随机化来测试一下RP..

显然不止两种

比如

6

0 1 0 0 1 0

那么总共有9种可能……

测试数据出错!

P.S.最多2种方案

以下几种情况可以定一些雷

中间的3或0

边上的2或0

连续的121

连续的1221

连续的212

这些是附近一个雷也没有的时候可以确定一些雷的情况的

有定下的一些雷以后,先修改1的情况,再改2的

然后循环一直确定,直到不能确定了,再搜索

凭我多年扫雷的经验,这题最多4种方案

#include<cstdio>
int main()
{
    int n;scanf("%d",&n);if(n>7700)puts("2");else if(n>6000)puts("1");
    else if(n>4800)puts("0");else if(n>1500)puts("2");
    else if(n>900)puts("1");else if(n>400)puts("0");
    else if(n>90)puts("2");else if(n>40)puts("1");else puts("0");
}

打表naive

LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅
LT真帅

聪明机智的我发表了题解
第三次AC，发一个纪念一下
program mine;
var a:array[0..1000000] of integer;
i,j,m,n,u:longint;
function jj(aa,bb:integer):integer;
var k:longint; b:array[0..1000000] of integer;
begin
b[1]:=aa; b[2]:=bb;
if aa+bb<>a[1] then exit(0);
for k:=3 to n do
begin
b[k]:=a[k-1]-b[k-1]-b[k-2];
if b[k]<0 then exit(0);
end;
if a[n]<>b[n]+b[n-1] then exit(0)
else exit(1);
end;
begin
assign(input,'mine.in');
reset(input);
assign(output,'mine.out');
rewrite(output);
readln(n);
for i:=1 to n do
read(a[i]);
u:=0;
if a[1]=0 then u:=u+jj(0,0);
if a[1]=1 then u:=u+jj(1,0)+jj(0,1);
if a[1]=2 then u:=u+jj(1,1);
writeln(u);
close(input);
close(output);
end.