N, K = gets.split(' ')
n = N.to_i
k = K.to_i

h = []
n.times do
    h << gets.chomp.to_i
end

h = h.sort_by{|x| x}

min = 1000000000
(n-k+1).times do |i|
    tmp = h[i+k-1] - h[i]
    if tmp < min then
        min = tmp
    end
end

print min