打鼹鼠

题意

在一个n*n的网格中，在某些时刻鼹鼠会在某一个网格探出头来透透气。你可以控制一个机器人来打鼹鼠，如果i时刻鼹鼠在某个网格中出现，而机器人也处于同一网格的话，那么这个鼹鼠就会被机器人打死。而机器人每一时刻只能够移动一格或停留在原地不动。机器人的移动是指从当前所处的网格移向相邻的网格，即从坐标为（i,j）的网格移向(i-1, j),(i+1, j),(i,j-1),(i,j+1)四个网格，机器人不能走出整个n*n的网格。现在你知道在一段时间内，鼹鼠出现的时间和地点，希望你编写一个程序使机器人在这一段时间内打死尽可能多的鼹鼠。 

分析

f[i]:=f[j]+1;(abs(x[i]-x[j])+abs(y[i]-y[j])<=time[i]-time[j])；

var
i,j,n,m,tj:longint;
time,x,y,f:array[0..10000]of longint;


function max(a,b:longint):longint;
begin
    if a>b then exit(a) else exit(b);
end;
begin
    readln(n,m);
    for i:=1 to m do
    readln(time[i],x[i],y[i]);
    for i:=1 to m do
    f[i]:=1;


    for i:=1 to m do
    for j:=1 to i-1 do
    if (abs(x[i]-x[j])+abs(y[i]-y[j])<=time[i]-time[j]) then f[i]:=max(f[i],f[j]+1);


    tj:=0;
    for i:=1 to m do
    tj:=max(tj,f[i]);
    write(tj);
end.