($n,$k)=glob<>; $e[$_]=<>for 0..$n-1; for(<>){ ($x,$y,$w,$h,$d)=split; $m{$x,$y}+=$d; $m{$x+$w+1,$y}-=$d; $m{$x,$y+$h+1}-=$d; $m{$x+$w+1,$y+$h+1}+=$d; } for$y(@i=-500..500){ $s=0; for$x(@i){ $l{$x,$y}+=$l{$x,$y-1}+($s=$m{$x,$y}+=$s); } } for(@e){ ($x,$y,$h)=split; $r+=$-=$h-$l{$x,$y}; } print$r; ######################################## ######################################## ######################################## ######################################## ######################################## ######################################## ######################################## ######################################## ########################################