滑雪

 

描述Michael喜欢滑雪这并不奇怪， 因为滑雪的确很刺激。可是为了获得速度，滑的区域必须向下倾斜，而且当你滑到坡底，你不得不再次走上坡或者等待升降机来载你。Michael想知道载一个区域中最长的滑坡。区域由一个二维数组给出。数组的每个数字代表点的高度。下面是一个例子

 1  2  3  4 5
16 17 18 19 6
15 24 25 20 7
14 23 22 21 8
13 12 11 10 9

一个人可以从某个点滑向上下左右相邻四个点之一，当且仅当高度减小。在上面的例子中，一条可滑行的滑坡为24-17-16-1。当然25-24-23-...-3-2-1更长。事实上，这是最长的一条。输入输入的第一行表示区域的行数R和列数C(1 <= R,C <= 100)。下面是R行，每行有C个整数，代表高度h，0<=h<=10000。输出输出最长区域的长度。样例输入

5 5
1 2 3 4 5
16 17 18 19 6
15 24 25 20 7
14 23 22 21 8
13 12 11 10 9

样例输出

25

思路：1：枚举每个点，dfs，算出能够走得最长路径（好像可以）（数据太水）
     2：dfs，不过要加记忆化，如果被搜过了，就不必再搜下去，然后返回他的值

program ex01;
const xx:array[1..4] of longint=(-1,0,0,1);
      yy:array[1..4] of longint=(0,-1,1,0);
var h:array[0..101,0..101] of longint;
    l:array[0..101,0..101] of longint;
    n,m,i,j,ans:longint;
function max(a,b:longint):longint;
begin
  if a>b then exit(a);
  exit(b);
end;
procedure init;
var i,j:longint;
begin
  readln(n,m);
  for i:=1 to n do
   for j:=1 to m do
    read(h[i,j]);
end;
function dfs(x,y:longint):longint;
var i,nx,ny:longint;
begin
  if l[x,y]<>0 then exit(l[x,y]);
  for i:=1 to 4 do
  begin
    nx:=x+xx[i]; ny:=y+yy[i];
    if (nx>0) and (nx<=n) and (ny>0) and (ny<=n) then
    begin
      if h[nx,ny]<h[x,y] then
      l[x,y]:=max(l[x,y],dfs(nx,ny)+1);
    end;
  end;
  exit(l[x,y]);
end;
begin
  init;
  for i:=1 to n do
   for j:=1 to m do
    dfs(i,j);
  for i:=1 to n do
   for j:=1 to m do
    if l[i,j]>ans then
     ans:=l[i,j];
  writeln(ans+1);
end.