N,M=gets.chomp.split.map(&:to_i)
X=gets.chomp.split.map(&:to_i).sort

if N>=M
  puts 0
  exit
end

y=[]
0.upto(M-2) do |i|
  y << X[i+1] - X[i]
end
y.sort!
y.reverse!
ans=X[M-1]-X[0]

if N > 1
  0.upto(N-2) do |i|
    ans -= y[i]
  end
end

puts ans