Problem:
Score : 700 points

Problem Statement

Snuke is buying a lamp.
The light of the lamp can be adjusted to m levels of brightness, represented by integers from 1 through m, by the two buttons on the remote control.

The first button is a "forward" button. When this button is pressed, the brightness level is increased by 1, except when the brightness level is m, in which case the brightness level becomes 1.

The second button is a "favorite" button. When this button is pressed, the brightness level becomes the favorite brightness level x, which is set when the lamp is purchased.

Snuke is thinking of setting the favorite brightness level x so that he can efficiently adjust the brightness.
He is planning to change the brightness n-1 times. In the i-th change, the brightness level is changed from a_i to a_{i+1}. The initial brightness level is a_1.
Find the number of times Snuke needs to press the buttons when x is set to minimize this number.

Constraints

2 \leq n,m \leq 10^5

1 \leq a_i\leq m

a_i \neq a_{i+1}

n, m and a_i are integers.

Input

Input is given from Standard Input in the following format:

n m
a_1 a_2 … a_n

Output

Print the minimum number of times Snuke needs to press the buttons.

Sample Input 1

4 6
1 5 1 4

Sample Output 1

5

When the favorite brightness level is set to 1, 2, 3, 4, 5 and 6, Snuke needs to press the buttons 8, 9, 7, 5, 6 and 9 times, respectively.
Thus, Snuke should set the favorite brightness level to 4.
In this case, the brightness is adjusted as follows:

In the first change, press the favorite button once, then press the forward button once.

In the second change, press the forward button twice.

In the third change, press the favorite button once.

Sample Input 2

10 10
10 9 8 7 6 5 4 3 2 1

Sample Output 2

45

Solution in Pascal (FPC 2.6.2) (judge verdict: Wrong Answer)

program V803;
 var
  a,b,c:array[0..100001] of longint;
  i,m,n:longint;
  sum,max:int64;
 begin
  readln(n,m);
  for i:=1 to n do
   read(a[i]);
  readln;
  fillchar(b,sizeof(b),0);
  fillchar(c,sizeof(c),0);
  sum:=0;
  for i:=2 to n do
   if a[i]>a[i-1] then
    begin
     inc(sum,a[i]-a[i-1]);
     inc(b[a[i-1]+1],a[i-1]+1);
     dec(b[a[i]+1],a[i-1]+1);
     inc(c[a[i-1]+2]);
     dec(c[a[i]+1]);
    end
                  else
    begin
     inc(sum,m-a[i-1]+a[i]);
     inc(b[a[i-1]+1],a[i-1]+1);
     inc(b[1],a[i-1]+1-m);
     dec(b[a[i]+1],a[i-1]+1-m);
     inc(c[a[i-1]+1]);
     inc(c[1]);
     dec(c[a[i]+1]);
    end;
  for i:=2 to n do
   begin
    inc(b[i],b[i-1]);
    inc(c[i],c[i-1]);
   end;
  max:=0;
  for i:=1 to n do
   if i*c[i]-b[i]>max then max:=c[i]*i-b[i];
  writeln(sum-max);
 end.