Problem:
Score : 200 points

Problem Statement

There are K pieces of cakes.
Mr. Takahashi would like to eat one cake per day, taking K days to eat them all.

There are T types of cake, and the number of the cakes of type i (1 ≤ i ≤ T) is a_i.

Eating the same type of cake two days in a row would be no fun,
so Mr. Takahashi would like to decide the order for eating cakes that minimizes the number of days on which he has to eat the same type of cake as the day before.

Compute the minimum number of days on which the same type of cake as the previous day will be eaten.

Constraints

1 ≤ K ≤ 10000

1 ≤ T ≤ 100

1 ≤ a_i ≤ 100

a_1 + a_2 + ... + a_T = K

Input

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

K T
a_1 a_2 ... a_T

Output

Print the minimum number of days on which the same type of cake as the previous day will be eaten.

Sample Input 1

7 3
3 2 2

Sample Output 1

0

For example, if Mr. Takahashi eats cakes in the order of 2, 1, 2, 3, 1, 3, 1, he can avoid eating the same type of cake as the previous day.

Sample Input 2

6 3
1 4 1

Sample Output 2

1

There are 6 cakes.
For example, if Mr. Takahashi eats cakes in the order of 2, 3, 2, 2, 1, 2, he has to eat the same type of cake (i.e., type 2) as the previous day only on the fourth day.
Since this is the minimum number, the answer is 1.

Sample Input 3

100 1
100

Sample Output 3

99

Since Mr. Takahashi has only one type of cake, he has no choice but to eat the same type of cake as the previous day from the second day and after.

Solution in Haskell (GHC 7.10.3) (judge verdict: Accepted)

-- AtCoder My Practice
-- author: Leonardone @ NEETSDKASU
{-# LANGUAGE OverloadedStrings #-}
import qualified Data.Set              as S
import qualified Data.Text             as T
import qualified Data.Array            as A
import qualified Text.Printf           as P
import qualified Data.Map              as M
import qualified Data.IntMap           as I
import qualified Data.ByteString.Char8 as C
import qualified Data.List             as L
import Data.Maybe (fromJust)
import Data.Ix    (inRange)

mapread = map $ fst . fromJust . C.readInt



main = print . solve . map read . words =<< getContents

solve (k:_:xs) = ans where
    x = head . reverse $ L.sort xs
    y = k - x
    ans = if y >= x - 1 then 0 else x - y - 1