n,k,*d=$<.read.split.map &:to_i
x,c=[],0
n.times{|i|x[d[i]]=i}
n.times{|i|(a=d[i])==(m=i+1)||(y=d.index m;c+=1;d[y],d[i]=a,m)}
puts c>k||1&(k^c)>0?:NO:'YES'