N, K = gets.split.map(&:to_i)
D = gets.split.map(&:to_i).map{|d| d - 1 }
min = D.each_index.inject(0) do |s, i|
  d = D[i]
  if i == d
    s
  else
    D[i] = D[d]
    D[d] = d
    s + 1
  end
end
puts min <= K && (K - min).even? ? :YES : :NO