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

solve :: Int -> [Int] -> Bool
solve h as = h <= sum as
