($n,$a,$b)=glob<>; $m[$_]=1for$a..$b; @e=sort map{($l,$u,$r,$d)=glob;pack N4,9999-$d,$l+500,$r+500,$i++}<>; for(@e){ ($d,$l,$r,$i)=unpack N4,$_; $h=0; for($l-500..$r-500){ $h|=$m[$_]; $m[$_]=0; } $r[$i]=$h.$/; } print@r;