n,k = gets.split.map(&:to_i)
h = []
n.times do
  h << gets.to_i
end
h.sort!{| a, b | b <=> a }
ans = 1000000000
(n-k+1).times do |i|
  if (h[i]-h[i+k-1]) < ans
    ans = h[i]-h[i+k-1]
  end
end
puts ans
