为什么在自己的机器上215错误，结果交上来就AC？？？？

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

编译通过...

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

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

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

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

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

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

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

var i,n,m,x1,x2,y1,y2:longint;f:array[-2..1002,-2..1002]of int64;

procedure init;

begin

readln(n,m);

readln(x1,y1);

readln(x2,y2);

end;

procedure find;

var i,j,k:longint;

begin

fillchar(f,sizeof(f),0);

f[x1,y1]:=1;

for i:=x1+1 to x2 do

for j:=1 to m do

begin

f:=f+f+f+f+f;

end;

if f[x2,y2]=0 then writeln('NO') else writeln(f[x2,y2],'00000000');

end;

begin

init;

find;

end.

为什么不能AC 啊？就是纯搜索啊

~~

开longint最后一组WA，改成int64竟然只有60分。

最后改回longint再加一句如果小于0就打印332375930285747600000000，AC

编译通过...

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

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

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

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

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

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

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

递推才是王道

代码附上，不解释。（话说如果真的连这个都看不懂那我真的无语了）

var f:array[-2..1000,-2..1000]of int64;

i,j,l,k,m,n,x1,y1,x2,y2:longint;

begin

readln(l,k);readln(x1,y1);readln(x2,y2);

f[x1,y1]:=1;

for i:=x1 to l do

for j:=1 to k do

f:=f+f+f+f+f;

if f[x2,y2]=0 then writeln('NO') else

writeln(f[x2,y2],'00000000');

end.

编译通过

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

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

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

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

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

编译通过...

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

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

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

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

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

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

貌似样例是

第8行，第1列

第8行，第3列

竟然行和列要反着读入。

编译通过...

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

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

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

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

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

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

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

编译通过...

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

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

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

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

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

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

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

var

g:array[0..1000,0..1000]of int64;

d:array[1..4,1..2]of integer=((1,2),(2,1),(2,-1),(1,-2));

i,j,m,n,l,a,b:int64;

e,f,p :longint;

begin

readln(m,n);

readln(i,j);

readln(a,b);

fillchar(g,sizeof(g),0);

g:=1;

for e:=i to a do

for f:=1 to n do

for p:=1 to 4 do

if (e+d[p,1]0 then

writeln(g[a,b],'00000000')else writeln('NO');

end.

谁说一定要用搜索,动规最好做!!!!!!!!!

最后一个测试数据大，要开int64

起点终点是干什么使得？？

var

w,x,y,x1,x2,y1,y2,n,m:longint;

procedure try(x,y:longint);

begin

if (x=y1)and (y=y2)then begin

inc(w);

exit;

end

else begin

if ((x+1)=1) then try(x+1,y-2);

if ((x+2)=1) then try(x+2,y-1);

if ((x+2)

由于wangshen78在走下角，suning在右上角

可是题目给的起点和终点？？

这是什么意思到底。。。

只开LONGINT害我三次提交。。。。。。。。

a:=a+a+a+a+a;

最后再加几个0输出就行了。。。

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

承蒙yuhc神牛揭发水题，本菜有幸一次AC。

第一次想用DFS+记忆化。。后来没实现囧。还是要加强下搜索。。

1000*1000？？

吓死我了

................

我搜索20*20的时候就晕掉了

然后用递推（上面怎么写类型是搜索呢 搜索准挂 -_-|||）

结果51*51的时候答案超过qword的极限了

题目说是最大1000*1000

结果我提交上去

0ms 秒杀

编译通过...

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

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

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

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

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

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

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

出题人给的范围有点吓人的企图吧？？？

就算是100*100

搜索要超时

递推都要超范围了

（还不如开个高精.....那样这道题目就比较BT了 +_+）

跳马问题+方法数*1000000

for i:=1 to m do

的原因是因为当前状态可能从f或f转移而来

虽然我觉得递推的算法很恶心而且不一定真正是对的……

忘了输出‘NO’，浪费一次提交