n,k = gets.split.map(&:to_i)
d = gets.split.map(&:to_i)
d = d.map { |v| v-1 }
cnt = 0

d.each_with_index do |v,i|
  if v == i
    next
  else
    d[v] = v
    d[i] = i
    cnt += 1
  end
end

p d
p cnt

a = k - cnt
if a < 0 
  puts "NO"
elsif a % 2 == 0
  puts "YES"
else
  puts "NO"
end