l,n,*w=gets(p).split.map &:to_i
s=0;w.sort!
p n.times{|i|s+=w[i];s>n&&(break i)}