n,k=gets.split.map(&:to_i)
if n==1
  puts 0
  exit
end
a=gets.split.map(&:to_i).sort
l=a.last-a.first
if k==1
  puts l
  exit
end
d=a.each_cons(2).map{|x,y|y-x}.sort.reverse
puts l-d.take(k-1).inject(:+)