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

main = do
  [h, _] <- getIntList
  a <- getIntList
  let as = sum a
  putStrLn $ if h-as <=0 then "Yes" else "No"
   


readInt = fst . fromJust . BS.readInteger
readIntList = map readInt . BS.words
getIntList = readIntList <$> BS.getLine
