(def parse-input
  (fn [s]
    (mapv #(Integer/parseInt %) (clojure.string/split s #" "))))

(def res
  (fn [[h a]]
    (+ (quot h a)
       (if (zero? (rem h a)) 0 1))))

(def hn (parse-input (read-line)))
(def as (parse-input (read-line)))

(println
 (if (<= (first hn) (apply + as))
   "Yes"
   "No"))
