import Control.Applicative
import Data.List

main :: IO ()
main = do
    l:_:ws <- map read . words <$> getContents :: IO [Int]
    print . length . filter (<= l) . scanl1 (+) . sort $ ws