import Control.Applicative
import Data.List 

main :: IO ()
main = do
    [a, _] <- map read . words <$> getLine
    ns <- map read . words <$> getLine
    putStrLn $ solve a ns
    
solve :: Int ->  [Int] -> String
solve a ns = if a <= (sum ns) then "Yes" else "No"