n, k = gets.chomp.split.map(&:to_i)
ds = gets.chomp.split.map { |d| d.to_i - 1 }
dict = [nil] * 200_000
ds.each_with_index do |d, i|
  dict[d] = i
end
n.times do |i|
  next if dict[i] == i
  j = dict[i]
  k = ds[i]
  ds[i] = i
  ds[j] = k
  dict[k] = j
  dict[i] = i
  k -= 1
end
puts k >= 0 && k.even? ? :YES : :NO