Problem:
Score : 300 points

Problem Statement

We will play a one-player game using a number line and N pieces.

First, we place each of these pieces at some integer coordinate.

Here, multiple pieces can be placed at the same coordinate.

Our objective is to visit all of the M coordinates X_1, X_2, ..., X_M with these pieces, by repeating the following move:

Move: Choose a piece and let x be its coordinate. Put that piece at coordinate x+1 or x-1.

Note that the coordinates where we initially place the pieces are already regarded as visited.

Find the minimum number of moves required to achieve the objective.

Constraints

All values in input are integers.

1 \leq N \leq 10^5

1 \leq M \leq 10^5

-10^5 \leq X_i \leq 10^5

X_1, X_2, ..., X_M are all different.

Input

Input is given from Standard Input in the following format:

N M
X_1 X_2 ... X_M

Output

Find the minimum number of moves required to achieve the objective.

Sample Input 1

2 5
10 12 1 2 14

Sample Output 1

5

The objective can be achieved in five moves as follows, and this is the minimum number of moves required.

Initially, put the two pieces at coordinates 1 and 10.

Move the piece at coordinate 1 to 2.

Move the piece at coordinate 10 to 11.

Move the piece at coordinate 11 to 12.

Move the piece at coordinate 12 to 13.

Move the piece at coordinate 13 to 14.

Sample Input 2

3 7
-10 -3 0 9 -100 2 17

Sample Output 2

19

Sample Input 3

100 1
-100000

Sample Output 3

0

Solution in Pascal (FPC 2.6.2) (judge verdict: Accepted)

const NMAX=100000;
var n,m,i,j:integer;
    x:array[1..NMAX] of integer;
    y:array[1..NMAX] of integer;
    
procedure sortx(p,q:integer);
  var i,j,k,w:integer;
begin i:=p;j:=q; k:=x[(p+q) div 2];
  repeat
    while x[i]<k do i:=i+1;
    while k<x[j] do j:=j-1;
    if i<=j then begin
      w:=x[i]; x[i]:=x[j]; x[j]:=w;
      i:=i+1; j:=j-1
    end
  until i>j;
  if p<j then sortx(p,j);
  if i<q then sortx(i,q)
end;
procedure sorty(p,q:integer);
  var i,j,x,w:integer;
begin i:=p;j:=q; x:=y[(p+q) div 2];
  repeat
    while y[i]<x do i:=i+1;
    while x<y[j] do j:=j-1;
    if i<=j then begin
      w:=y[i]; y[i]:=y[j]; y[j]:=w;
      i:=i+1; j:=j-1
    end
  until i>j;
  if p<j then sorty(p,j);
  if i<q then sorty(i,q)
end;

begin
  read(n);
  readln(m);
  for i:=1 to m do read(x[i]);
  sortx(1,m);
  for i:=1 to m-1 do y[i]:=x[i+1] - x[i];
  sorty(1,m-1);
  j:=0;
  for i:=1 to m-n do j:=j+y[i];
  write(j)
end.