let ``No.5 数字のブロック`` () =
    let L = int <| stdin.ReadLine()
    let M = int <| stdin.ReadLine()
    stdin.ReadLine().Split(' ')
    |> Seq.map int
    |> Seq.sort
    |> Seq.scan (fun (s,c) n -> s+n,c+1) (0,0)
    |> Seq.takeWhile (fst >> (>=)L)
    |> Seq.last
    |> snd
    |> printfn "%d"
``No.5 数字のブロック`` ()