n,k,*d=$<.read.split.map &:to_i
s=d.sort
x=0
n.times{|i|d[i]==s[i]||x^=1}
puts k-x&1<1?:YES:'NO'