toInt :: (String -> Int)
toInt x = read x ::Int

getInts :: IO [Int]
getInts = do
  x <- getLine
  let y = (map$toInt)$words x
  return y



solve :: Int -> [Int] -> Bool
solve h []
  | h <= 0    = True
  | otherwise = False
solve h (a:as)
  | h <= 0    = True
  | otherwise = solve (h-a) as



main = do
  n <- getInts
  a <- getInts
  let h = head n
  putStrLn (if solve h a then "Yes" else "No")
