Problem:
Score : 300 points

Problem Statement

Snuke has N hats. The i-th hat has an integer a_i written on it.

There are N camels standing in a circle.
Snuke will put one of his hats on each of these camels.

If there exists a way to distribute the hats to the camels such that the following condition is satisfied for every camel, print Yes; otherwise, print No.

The bitwise XOR of the numbers written on the hats on both adjacent camels is equal to the number on the hat on itself.

What is XOR?

The bitwise XOR x_1 \oplus x_2 \oplus \ldots \oplus x_n of n non-negative integers x_1, x_2, \ldots, x_n is defined as follows:

- When x_1 \oplus x_2 \oplus \ldots \oplus x_n is written in base two, the digit in the 2^k's place (k \geq 0) is 1 if the number of integers among x_1, x_2, \ldots, x_n whose binary representations have 1 in the 2^k's place is odd, and 0 if that count is even.

For example, 3 \oplus 5 = 6.

Constraints

All values in input are integers.

3 \leq N \leq 10^{5}

0 \leq a_i \leq 10^{9}

Input

Input is given from Standard Input in the following format:

N
a_1 a_2 \ldots a_{N}

Output

Print the answer.

Sample Input 1

3
1 2 3

Sample Output 1

Yes

If we put the hats with 1, 2, and 3 in this order, clockwise, the condition will be satisfied for every camel, so the answer is Yes.

Sample Input 2

4
1 2 4 8

Sample Output 2

No

There is no such way to distribute the hats; the answer is No.

Solution in Haskell (GHC 7.10.3) (judge verdict: Wrong Answer)

import Data.Maybe
import Data.List
import Control.Monad
import qualified Data.ByteString.Char8 as C

readInt' = fst.fromJust.C.readInt
readLnInt = map readInt'.C.words<$>C.getLine
readCsInt n = concat<$>replicateM n readLnInt

x ? (a,b) = if x then a else b
half = flip div 2
aliq = ((0==).).mod

xor :: [Bool] -> [Bool] -> [Bool]
xor [] [] = []
xor a [] = xor a [True]
xor [] b = xor [True] b
xor a b = [b'?(a',not a')] ++ xor as bs where
 a' = head a
 b' = head b
 as = tail a
 bs = tail b

i2b :: Int -> [Bool]
i2b n = [even n] ++ (n==0)?([],i2b (half n))

b2i :: [Bool] -> Int
b2i s = b2i2 0 $ reverse s where
 b2i2 ans (a:as) = (null as)?(ans',b2i2 ans' as) where
  ans' = 2 * ans + a?(0,1)

exor a b = b2i (xor (i2b a) (i2b b))

main = do
  getLine
  inputs <- readLnInt
  putStr $ (solve inputs)?("Yes","No")

solve s = calc (nub s) && (maximum ls - minimum ls < 2) where
  ls = map length $ group $ sort s

calc s
 | length s > 3 = False
 | otherwise = check s

check [a,b,c] = c == (exor a b)
check [a,b] = check [a,b,a] || check [a,b,b]
check [a] = check [a,a,a]