eval'L,N,*W='+$<.read.split*?,
s=i=0
(0..N).any?{s+=W.sort[i];i+=1;s>L}
p~-i