l,n,*a=$<.read.split.map &:to_i
s=0
p a.sort.index{|i|s+=i;s>l}||n