10.18 取数 2434

题目

题解

就是一个深索，从每个点出发找最长等差数列就可以了，但是直接搜肯定会爆，所以考虑记忆化
刚开始想的是c[i,j,k]表示点i,j的最长等差数列长度为k，这样记录虽然答案正确，但是内存会爆
所以这时候该题解登场了——c[i,j,k]表示点i,j向第k方向（共4个方向）走的最长等差数列长度，很显然一下子少了很多无用的内存，而且每一种状态都能表示，因为每个方向只可能有一个差
然后就是广搜了

代码

这个是我的写法

const  dx:array[1..4]of integer=(1,-1,0,0);  dy:array[1..4]of integer=(0,0,-1,1);var  n,m,i,j,k,max:longint;  a,b:array[0..101,0..101]of longint;  c:array[0..101,0..101,0..4000]of longint;procedure dfs(x,y,t:longint);var  i,j,k:longint;begin  for i:=1 to 4 do    if (a[x+dx[i],y+dy[i]]-a[x,y]=t)and(x+dx[i]>0)and(x+dx[i]<=n)       and(y+dy[i]>0)and(y+dy[i]<=m)and(b[x+dx[i],y+dy[i]]=0) then         begin           if (c[x,y,t]+1>c[x+dx[i],y+dy[i],t]) then           begin             b[x+dx[i],y+dy[i]]:=1;             c[x+dx[i],y+dy[i],t]:=c[x,y,t]+1;             dfs(x+dx[i],y+dy[i],t);             b[x+dx[i],y+dy[i]]:=0;           end;         end;end;begin  readln(n,m);  for i:=1 to n do    for j:=1 to m do      begin        read(a[i,j]);        for k:=1 to 4000 do          c[i,j,k]:=1;      end;  for i:=1 to n do    for j:=1 to m do      for k:=1 to 4 do        if (i+dx[k]>0)and(i+dx[k]<=n)and(j+dy[k]>0)and(j+dy[k]<=m)           and(a[i+dx[k],j+dy[k]]>a[i,j])           and(c[i,j,a[i+dx[k],j+dy[k]]-a[i,j]]=1) then          begin            b[i,j]:=1;            c[i+dx[k],j+dy[k],a[i+dx[k],j+dy[k]]-a[i,j]]:=2;            dfs(i+dx[k],j+dy[k],a[i+dx[k],j+dy[k]]-a[i,j]);            b[i,j]:=0;          end;  for i:=1 to n do    for j:=1 to m do      for k:=1 to 4000 do        if c[i,j,k]>max then max:=c[i,j,k];  writeln(max);end.

我记得我写对了，但是忘记提交到网络上，于是不得不重写