1218: [HNOI2003]激光炸弹

1218: [HNOI2003]激光炸弹

Time Limit: 10 Sec  Memory Limit: 162 MB
Submit: 1139  Solved: 542
[Submit][Status]

Description

一种新型的激光炸弹,可以摧毁一个边长为R的正方形内的所有的目标。现在地图上有n(N<=10000)个目标,用整数Xi,Yi(其值在[0,5000])表示目标在地图上的位置,每个目标都有一个价值。激光炸弹的投放是通过卫星定位的,但其有一个缺点,就是其爆破范围,即那个边长为R的正方形的边必须和x,y轴平行。若目标位于爆破正方形的边上,该目标将不会被摧毁。 0

Input

输入文件的第一行为正整数n和正整数R,接下来的n行每行有3个正整数,分别表示

Output

输出文件仅有一个正整数,表示一颗炸弹最多能炸掉地图上总价值为多少的目标(结果不会超过32767)。

Sample Input

2 1
0 0 1
1 1 1

Sample Output

1

HINT

Source

Dp

题解:虽然是明显的Dp,但是本萌妹偏不——我就是要每个点花600ms的暴力,其实就是个段求和而已。。。别的没了,相信程序不难懂(PS:注意边界情况,注意坐标下线是从0开始的)

 1 var
 2    i,j,k,l,m,n:longint;
 3    a:array[-..,-..] of longint;
 4 begin
 5      readln(n,m);l:=;
 6      fillchar(a,sizeof(a),);
 7      for i:= to n do
 8          begin
 9               readln(j,k,l);
               a[j,k]:=a[j,k]+l;
          end;
      for i:= to  do
          for j:= to  do
              a[i,j]:=a[i-,j]+a[i,j];
      for i:= to -m+ do
          begin
               k:=;
               for j:= to m- do
                   begin
                        k:=k+a[i+m-,j]-a[i-,j];
                   end;
               for j:=m to  do
                   begin
                        if k>l then l:=k;
                        k:=k-(a[i+m-,j-m]-a[i-,j-m])+(a[i+m-,j]-a[i-,j]);
                   end;
          end;
      writeln(l);
      readln;
 end.
上一篇:MySQL支持的数据类型(3)( 字符串)


下一篇:* Regional Online Preliminary 2016 C. Classrooms