main :: IO ()
main = interact $ format . solve . parse

parse :: String -> (Int, [Int])
parse input = (h, a) where
    h = read . head . words . head . lines $ input
    a = map read . words . head . tail . lines $ input

solve :: (Int, [Int]) -> Bool
solve (h, a) = h <= sum a

format :: Bool -> String
format True = "Yes\n"
format False = "No\n"
