过河卒

题目描述

棋盘上A点有一个过河卒，需要走到目标B点。卒行走的规则：可以向下、或者向右。同时在棋盘上C点有一个对方的马，该马所在的点和所有跳跃一步可达的点称为对方马的控制点。因此称之为“马拦过河卒”。

棋盘用坐标表示，A点(0, 0)、B点(n, m)(n, m为不超过20的整数)，同样马的位置坐标是需要给出的。

现在要求你计算出卒从A点能够到达B点的路径的条数，假设马的位置是固定不动的，并不是卒走一步马走一步。

输入输出格式

输入格式：

一行四个数据，分别表示B点坐标和马的坐标。

输出格式：

一个数据，表示所有的路径条数。

输入输出样例

输入样例#1： 复制

6 6 3 3

输出样例#1： 复制

6

说明

结果可能很大！

思路，刚开始很自然的就想到了搜！结果TLE了3个点，然后就画表格推出DP：f[i,j]:=f[i-1,j]+f[i,j-1];

var
 f:array[0..101,0..101]of int64;
 map:array[0..101,0..101]of boolean;
 bx,by,cx,cy,i,j,ans:longint;
function max(aa,bb:longint):longint;
begin
 if aa>bb then exit(aa)
          else exit(bb);
end;
begin
 fillchar(map,sizeof(map),true);
 read(bx,by,cx,cy);
 map[cx,cy]:=false; map[cx-1,cy-2]:=false;
 map[cx+1,cy-2]:=false; map[cx-2,cy-1]:=false;
 map[cx+2,cy-1]:=false; map[cx-2,cy+1]:=false;
 map[cx-1,cy+2]:=false; map[cx+1,cy+2]:=false;
 map[cx+2,cy+1]:=false;


 f[0,0]:=1;
  for i:=1 to bx do
  if map[i,0] then f[i,0]:=f[i-1,0];
   for j:=1 to by do
  if map[0,j] then f[0,j]:=f[0,j-1];
  for i:=1 to bx do
   for j:=1 to by do
    if map[i,j] then
    f[i,j]:=f[i-1,j]+f[i,j-1];
 write(f[bx,by]);
end.