($n,$m)=<>=~/\d+/g;
$m-=$_,$c+=$m>=0for sort{$a-$b}<>=~/\d+/g;
print $c;