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