program main
   implicit none
   integer i,h,n
   integer,allocatable :: a(:)
   
   read(*,*) h,n
   allocate(a(n))
   read(*,*) (a(i),i=1,n)
   if(sum(a)>=h) then
      write(*,'(a)') 'Yes'
   else
      write(*,'(a)') 'No'
   endif
end program main

