BZOJ P1207 打鼹鼠

  传送门  http://www.lydsy.com/JudgeOnline/problem.php?id=1207 

  首先分析题目，题目中给出说明，时间按递增顺序给出。并且数据范围是M = 10000。那么我们可以考虑用最长上升子序列来解决。

  设 F[i] 代表 到第i个鼹鼠前所能打到的鼹鼠的最大值。i从2枚举到n，在内层从1到i - 1枚举j，那么通过j转移到i的满足条件为：i 到 j 的曼哈顿距离 abs(x[j] - x[i]) +　abs(y[j] - y[i]）小于鼹鼠出现时间的差（time[i] - time[j]），因为机器人每次只能移动一步。

 

下面附上代码

//By Neil
const
    maxM                        =10000 + 10;
type
    map                         =record
    t,x,y                       :longint;
    end;
var
    a                           :array[0..maxM] of map;
    i,j,k                       :longint;
    n,m                         :longint;
    f                           :array[0..maxM] of longint;
    ans                         :longint;
procedure  swap(var x,y:map);
var
    tmp                         :map;
begin
    tmp := x;
    x := y;
    y := tmp;
end;
function  max(x,y :longint):longint;
begin
  if x > y then exit(x) else exit(y);
end;

procedure  init;
begin
  read(n,m);
  for i := 1 to m do
    read(a[i].t,a[i].x,a[i].y);
end;

procedure  main;
var
    i,j                    :longint;
begin
  for i := 1 to m do
    begin
      f[i] := 1;
      for j := 1 to i - 1 do
        if (abs(a[j].x - a[i].x) + abs(a[j].y - a[i].y) <= a[i].t - a[j].t) then
            f[i] := max(f[i],f[j] + 1);
      ans := max(ans,f[i]);
    end;
  writeln(ans);


end;
begin
  init;
  main;
end.