Problem:
Score : 300 points

Problem Statement

There are N boxes arranged in a row.
Initially, the i-th box from the left contains a_i candies.

Snuke can perform the following operation any number of times:

Choose a box containing at least one candy, and eat one of the candies in the chosen box.

His objective is as follows:

Any two neighboring boxes contain at most x candies in total.

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

Constraints

2 ≤ N ≤ 10^5

0 ≤ a_i ≤ 10^9

0 ≤ x ≤ 10^9

Input

The input is given from Standard Input in the following format:

N x
a_1 a_2 ... a_N

Output

Print the minimum number of operations required to achieve the objective.

Sample Input 1

3 3
2 2 2

Sample Output 1

1

Eat one candy in the second box.
Then, the number of candies in each box becomes (2, 1, 2).

Sample Input 2

6 1
1 6 1 2 0 4

Sample Output 2

11

For example, eat six candies in the second box, two in the fourth box, and three in the sixth box.
Then, the number of candies in each box becomes (1, 0, 1, 0, 0, 1).

Sample Input 3

5 9
3 1 4 1 5

Sample Output 3

0

The objective is already achieved without performing operations.

Sample Input 4

2 0
5 5

Sample Output 4

10

All the candies need to be eaten.

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

var cc : array [0..100000] of int64 ;
    n,a,b,c,d,e,f,g : longint;
    h,i,j,k,x,sum : int64 ;
begin
 readln(n,x);
// writeln(sum,cc[1]:2,cc[2]:2,cc[3]:2);
 for a:=1 to n do
  read(cc[a]);
// writeln(sum,cc[1]:2,cc[2]:2,cc[3]:2);
 for b:=1 to n-1 do
  begin
// writeln(j,sum:2,cc[1]:2,cc[2]:2,cc[3]:2);
   j:=x;
   if cc[b]+cc[b+1]>j then
    begin
    if cc[b]>j then
     begin
      sum:=sum+(cc[b]-j);
      cc[b]:=cc[b]-(cc[b]-j) ;
     end;
    if cc[b]+cc[b+1]>j then
    begin
     k:=cc[b]+cc[b+1];
     if k-cc[b+1]<=j then
      begin
       sum:=sum+(k-j);
       cc[b+1]:=cc[b+1]-(k-j);
      end
     else if k-cc[b+1]>j then
      begin
       sum:=sum+cc[b+1];
       k:=k-cc[b+1];
       cc[b+1]:=0;
       sum:=sum+(k-j);
      end;
{    if cc[b+1]-j>=0 then
     begin
      sum:=sum+(cc[b+1]-j);
      writeln('hey',sum);
      cc[b+1]:=j;
     end
    else
     begin

      sum:=sum+cc[b+1];
      j:=j-cc[b+1];
      cc[b+1]:=0;
      sum:=sum+j;
      cc[b]:=cc[b]-j;

     end; }
    end;
//    writeln(sum);
   end;
  end;
 writeln(sum);
end.