_,n,*a=`sort|uniq -c`.split.map &:to_i
puts a.max>-~n/2?:NO: :YES