Rafe 2010-10-25 03:24:00
点我顶贴
收藏
删除
RUNNING
提示一个 超时 一个106错误 三个无输出
晕呀 样例能过
var
n,m,sum:longint;
l:array[1..maxint] of longint;
function xx(x1:integer):boolean;
var
i:longint;
begin
xx:=false;
if x1>m then
begin
for i:=1 to m do
if l[x1-i]<>l[x1] then xx:=true;
end
else xx:=true;
end;
procedure search(t:integer);
var
i,j:longint;
begin
if t>n then begin inc(sum); exit; end;
for i:=0 to 1 do
begin
l[t]:=i;
if xx(t) then
search(t+1);
end;
end;
begin
read(n,m);
fillchar(l,sizeof(l),1);
sum:=0;
search(1);
writeln(sum mod 33554430);
end.