($N,$K)=glob<>; for(0..$N-1){ <>=~/ .* /; $X[$_]=500+$`; $Y[$_]=500+$&; $D[$_]=$' } for(<>){ / .* (.*) (.*) /; $_[500+$`][500+$&]+=$'; $_[501+$`+$1][500+$&]-=$'; $_[500+$`][501+$&+$2]-=$'; $_[501+$`+$1][501+$&+$2]+=$' } for$y(0..1000){for$x(1..1000){ $_[$x][$y]+=$_[$x-1][$y] }} for$x(0..1000){for$y(1..1000){ $_[$x][$y]+=$_[$x][$y-1] }} for(0..$N-1){ $\+=$-=$D[$_]-$_[$X[$_]][$Y[$_]] } print