sub max{$_[$_[1]>$_[0]]} sub min{$_[$_[1]<$_[0]]} ($x,$y,$d)=glob<>; print max($x,$y)<$d?0:min($x,$y)<$d?min($x,$y)+1:$d+1