bzoj1218 本来dp 但是数据弱 枚举可过
![](https://images.cnblogs.com/OutliningIndicators/ContractedBlock.gif)
1 program hehe; 2 var 3 ans,n,r,i,j,k,x,y:longint; 4 c:array[-10..5000,-10..5000] of longint; 5 begin 6 readln(n,r); 7 for i:=1 to n do 8 begin 9 read(x,y); 10 read(c[x,y]); 11 end; 12 for i:=0 to 5000 do 13 for j:=0 to 5000 do 14 c[i,j]:=c[i,j]+c[i-1,j]+c[i,j-1]-c[i-1,j-1]; 15 for i:=r-1 to 5000 do 16 for j:=r-1 to 5000 do 17 if c[i,j]-c[i-r,j]-c[i,j-r]+c[i-r,j-r]>ans then 18 ans:=c[i,j]-c[i-r,j]-c[i,j-r]+c[i-r,j-r]; 19 writeln(ans); 20 end.
1218: [HNOI2003]激光炸弹
Time Limit: 10 Sec Memory Limit: 162 MBSubmit: 1297 Solved: 624
[Submit][Status][Discuss]
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
0 0 1
1 1 1
Sample Output
1