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

readInt = fst . fromJust . BS.readInteger
readIntList = map readInt . BS.words

getInt = readInt <$> BS.getLine
getIntList = readIntList <$> BS.getLine

main = do
  [h, n] <- getIntList
  a <- getIntList
  putStrLn $ solve h a

solve h a = if sum a >= h then "Yes" else "No"