n, k = gets.split.map(&:to_i)
a = gets.split.map{|x|x.to_i - 1}
idx = Array.new(n)
n.times do |i|
    idx[a[i]] = i
end

cnt = 0
n.times do |i|
    next if a[i] == i
    idx[a[i]] = idx[i]
    a[idx[i]] = a[i]
    cnt += 1
end

if cnt > k || (k - cnt) % 2 == 1
    puts "NO"
else
    puts "YES"
end