n,a,b=$<.map{|s|s.split.map &:to_i}
c=[0]*$$
n[0].times{|i|c[b[i]<1?0:b[i]]+=a[i]}
puts c.max>c[0]?:NO:'YES'