program main
      implicit none
      integer(8) :: h
      integer(4) :: n, i
      integer(4),allocatable :: a(:)

      read *, h,n
      allocate( a(n) )
      read *, a

      do i = 1, n
        h = h - a(i)
        if ( h <= 0 ) then
          print *, 'Yes'
          exit
        end if
      end do

      if ( h > 0 ) then
        print *, 'No'
      end if
end program main
