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