import Data.List
main = do
	[_, m] <- getLine >>= return . map (read::String->Int) . words
	getLine >>= print . length . takeWhile (<=m) . scanl1 (+) . sort . map read . words