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)||(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