nk = gets.chomp.split
n = nk[0].to_i
k = nk[1].to_i

a = gets.chomp.split
n.times do |i|
    a[i] = a[i].to_i
end

(n - k).times do |i|
    former = a[i]
    latter = a[i + k]
    (n - k - 1).times do |j|
        former += a[i + j + 1]
        latter += a[i + j + 1]
    end
    puts former < latter ? "Yes" : "No"
end
