let () = Scanf.scanf "%d %d\n" @@ fun h n ->
  let list = List.init n @@ fun _ -> Scanf.scanf " %d" Fun.id in
  Printf.printf "%s\n" @@
  let sum = List.fold_left ( + ) 0 list in
  if sum >= h
  then "Yes"
  else "No"