Imports System
Module ABC153B
	Sub Main()
		Dim inputs() As String
		Dim h,n,sum As Integer
		inputs = Console.ReadLine().Split()
		h = Integer.Parse(inputs(0))
		n = Integer.Parse(inputs(1))
		inputs = Console.ReadLine().Split()
		sum = 0
		For i As Integer = 0 To n-1
			sum += Integer.Parse(inputs(i))
		Next

		If sum >= h
			Console.WriteLine("Yes")
		Else
			Console.WriteLine("No")
		End If
	End Sub
End Module
