n,m=gets.chomp.split.map(&:to_i)
ds = m.times.map{ gets.to_i }.sort

ans = 1e30
for i in 0..ds.size-n
  # p [ds[i], ds[i + n-1]]
  x = ds[i]
  y = ds[i+n-1]
  ans = [ans,
         x.abs + (y-x).abs,
         y.abs + (y-x).abs].min
end

p ans