Problem:
Score : 300 points

Problem Statement

Snuke and Raccoon have a heap of N cards. The i-th card from the top has the integer a_i written on it.

They will share these cards.
First, Snuke will take some number of cards from the top of the heap, then Raccoon will take all the remaining cards.
Here, both Snuke and Raccoon have to take at least one card.

Let the sum of the integers on Snuke's cards and Raccoon's cards be x and y, respectively.
They would like to minimize |x-y|.
Find the minimum possible value of |x-y|.

Constraints

2 \leq N \leq 2 \times 10^5

-10^{9} \leq a_i \leq 10^{9}

a_i is an integer.

Input

Input is given from Standard Input in the following format:

N
a_1 a_2 ... a_{N}

Output

Print the answer.

Sample Input 1

6
1 2 3 4 5 6

Sample Output 1

1

If Snuke takes four cards from the top, and Raccoon takes the remaining two cards, x=10, y=11, and thus |x-y|=1. This is the minimum possible value.

Sample Input 2

2
10 -10

Sample Output 2

20

Snuke can only take one card from the top, and Raccoon can only take the remaining one card. In this case, x=10, y=-10, and thus |x-y|=20.

Solution in Haskell (GHC 7.10.3) (judge verdict: Runtime Error)

import Data.List
import Control.Applicative

listsumcut :: Int->[Int]->[Int]->[Int]
listsumcut s (x:xs) accum
    |length xs == 1 = x:accum
    |sum accum <= s = listsumcut s xs $ x:accum
    |otherwise = accum

solverpre1 :: [Int]->[Int] -> Int
solverpre1 list list2 = abs $ 2* (sum $ list2) - (sum list)

solverpre2 :: [Int]->[Int]-> Int
solverpre2 list list2 = abs $ 2* (sum $ tail list2) - (sum list)

solver (x:y:[]) = abs (x-y)
solver list = let ac = listsumcut (sum list `div` 2) list [] in minimum (solverpre1 list ac, solverpre2 list ac)


main :: IO ()
main = do
    -- スペース区切り整数の入力
    getLine
    list <- map read . words <$> getLine
    -- 出力
    putStrLn $ show $ solver list