(defn split [xs]
  (-> xs
      (clojure.string/split #" ")
      (as-> x (map read-string x))))


(let [[h n] (split (read-line))
      a (split (read-line))]
  (if (<= h (reduce #'+ a))
    (println "Yes")
    (println "No")))