<>; @vw=<>; $V=pop@vw; for(@vw){ / /; for(reverse 0..@d){ $d[$_+$']+=$-=$d[$_]+$`-$d[$_+$'] } } for(@d){ if($_==$V){ $a||=$i } if($_>$V){ $b||=$i-1 } ++$i } print$a,$/,$b||inf