import Data.List

main = getContents >>= putStrLn . (\p -> if p then "YES" else "NO") . kamo . map read . words

kamo (n:xs) = d /= 0 && all (==d) ds
 where (d:ds) = let xs' = sort xs in zipWith (-) xs' (tail xs')