rInt :: String -> Int
rInt = read

rDouble :: String -> Double
rDouble = read

average :: [Int] -> Double
average xs = fromIntegral (sum xs) / fromIntegral (length xs)

main = do
    [n, a] <- map rDouble . words <$> getLine
    xs <- map rInt . words <$> getLine
    print $ if a == (average xs) then "Yes" else "No"