solve :: Int -> [Int] -> Int
solve h xs = h - sum xs

main = do
    [h,_] <- map read . words <$> getLine :: IO [Int]
    xs <- map read . words <$> getLine :: IO [Int]
    putStrLn $ if solve h xs <= 0 then "Yes" else "No"