import Data.List
main=do
  [_,m]<-map read . words <$> getLine
  cs<-map read .words <$> getLine
  print $ solve 0 m $ scanl1 (+) $ sort $ cs

solve n m [] = n
solve n m (x:xs)
  | m >= x = solve (n+1) m xs
  | otherwise = n