func a h
    | sum a >= h = "Yes"
    | otherwise = "No"

main :: IO ()
main = do
    [h, n] <- map read . words <$> getLine :: IO [Int]
    a <- map read . words <$> getLine :: IO [Int]
    putStrLn $ func a h