($h,$a,$d)=<>=~/\S+/g;$i=$b[$_>$a?$_-$a:0]+2,$j=$b[$_>$d?$_-$d:0]+3,$b[$_]=$i>$j?$j:$i for 1..$h;print$b[$h]/2