主页 / 问题 / 602881
Accepted
Gadget
Asked:2020-12-13 11:17:14 +0000 UTC2020-12-13 11:17:14 +0000 UTC

F#实现一个函数，计算m到n的组合个数

  • 772

如果不能使用List模块的内置函数，如何实现一个计算从m到n的组合数的函数？

f#

2 个回答

  1. Best Answer

    这不是一件容易的事，前段时间我自己也遇到过。然后他们帮我找到了合适的解决方案，所以我就在这里复制它：

    let rec combinations acc size set = seq {
    match size, set with
      | n, x::xs ->
          if n > 0 then yield! combinations (x::acc) (n - 1) xs
          if n >= 0 then yield! combinations acc n xs
      | 0, [] -> yield acc
      | _, [] -> () }

    作者 : s952163

    资源

    用法：

    combinations [] 5 [1..6]
|> printfn "%A"

    为了更方便的使用，我建议你对函数进行包装combinations

    • 3

  2. 按公式求解，不使用列表函数

    let factorial n =
    let rec loop i acc =
        match i with
        | 0 | 1 -> acc
        | _ -> loop (i-1) (acc * i)
    loop n 1

let combinations_count m n =
    (factorial m) / (factorial (m-n))

    您可以通过减少从 m-n+1 到 n 的数字乘积并使用 List 方法来改进一点：

    let combinations_count_short m n =
    [m-n+1..m] |> List.reduce (*)
    • 2

相关问题