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