<>;@d=sort{$b-$a}<>=~/\d+/g;$x=abs(<>!~$"|abs($`)>abs($')?$`:$');print$-=!$x?0:(grep{$_ eq$x}@d)?1:1.9+abs($x-$d[0])/$d[0]