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: Wrong Answer)

var n,x,y,z,i,j,k,ans:longint;
a:array[1..1000000]of longint;
begin
    readln(n,x);
    for i:=1 to n do
    begin
        read(a[i]);
    end;
    for i:=1 to n-1 do
    begin
  //  writeln(i);
        if a[i]+a[i+1]>x then
        begin
            if (i+2<=n)then
            begin
                if a[i+2]+a[i+1]>x then
                begin
                    y:=a[i+1]-(x-a[i]);
                    z:=a[i+1]-(x-a[i+2]);
                    if y>z then
                    begin
                       ans:=ans+y;
                       if y>a[i+1] then
                       begin
                           a[i+2]:=a[i+1]-(y-ans);
                           a[i+1]:=0;
                       end
                       else a[i+1]:=a[i+1]-y;
                    end
                    else
                    begin
                        ans:=ans+z;
                      //  writeln('2');
                        if z>a[i+1] then
                        begin
                           a[i+2]:=a[i+2]-(z-a[i+1]);
                           a[i+1]:=0;
                        end
                        else a[i+1]:=a[i+1]-z;
                    end;
                end;
            end
            else
            begin
                y:=a[i+1]+a[i]-x;
                if a[i+1]-y<=0 then
                begin
                    a[i]:=a[i]-(y-a[i+1]);
                    a[i+1]:=0;
                end
                else
                  a[i+1]:=a[i+1]-y;
                ans:=ans+y;
            end;
        end;
    end;
  //  for i:=1 to n do
  //    write(a[i],' ');
    writeln(ans);
end.