import Data.List
main = do
  [h, n] <- map read . words <$> getLine :: IO[Int]
  as <- map read . words <$> getLine :: IO [Int]
  putStrLn $ ans h as

ans :: Int -> [Int] -> String
ans h as = if (sum as) >= h
          then "Yes"
          else "No"


