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