打鼹鼠
Time Limit:10000MS Memory Limit:65536K
Total Submit:313 Accepted:124
Case Time Limit:1000MS
Description
鼹鼠是一种很喜欢挖洞的动物,但每过一定的时间,它还是喜欢把头探出到地面上来透透气的。
根据这个特点阿Q编写了一个打鼹鼠的游戏:在一个n*n的网格中,在某些时刻鼹鼠会在某一个网格探出头来透透气。你可以控制一个机器人来打鼹鼠,如果i时刻鼹鼠在某个网格中出现,而机器人也处于同一网格的话,那么这个鼹鼠就会被机器人打死。而机器人每一时刻只能够移动一格或停留在原地不动。机器人的移动是指从当前所处的网格移向相邻的网格,即从坐标为(i,j)的网格移向(i-1, j),(i+1, j),(i,j-1),(i,j+1)四个网格,机器人不能走出整个n*n的网格。游戏开始时,你可以自由选定机器人的初始位置。
现在你知道在一段时间内,鼹鼠出现的时间和地点,希望你编写一个程序使机器人在这一段时间内打死尽可能多的鼹鼠。
Input
你将从文件mole.in中读入数据,文件第一行为n(n<=1000), m(m<=10000),其中m表示在这一段时间内出现的鼹鼠的个数,接下来的m行每行有三个数据time,x,y表示有一只鼹鼠在游戏开始后time个时刻,在第x行第y个网格里出现了一只鼹鼠。Time按递增的顺序给出。注意同一时刻可能出现多只鼹鼠,但同一时刻同一地点只可能出现一只鼹鼠。
Output
输出文件mole.out中仅包含一个正整数,表示被打死鼹鼠的最大数目。
Sample Input
2 2
1 1 1
2 2 2
Sample Output
var f,x,y,t:array[0..10000]of longint; n,m,i,j,l,ans:longint; function max(a,b:longint):longint; begin if a>b then exit(a); exit(b); end; begin readln(n,m); for i:=1 to m do read(t[i],x[i],y[i]); for i:=1 to m do begin l:=0; for j:=i-1 downto 1 do if (t[i]-t[j]>=abs(x[j]-x[i])+abs(y[j]-y[i])) then l:=max(l,f[j]); f[i]:=l+1; ans:=max(ans,f[i]); end; write(ans); end.
转载请注明原文地址: https://ju.6miu.com/read-13624.html