n,x,a,b=$<.map &:to_i
p [(x+~a)/a,(2**~-n-x+~b)/b].min