import Data.Maybe
import qualified Data.ByteString.Char8 as BS

getInts = map (fst . fromJust . BS.readInt) . BS.words <$> BS.getLine

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

  putStrLn $ if h <= sum a then "Yes" else "No"