function - F# 中的嵌套函数

Question

我有一个简单的函数，可以列出给定输入数字的每个素因数。它的组成是:

let rec f n x a = 
    if x = n then
        x::a
    elif n % x = 0 then 
        f (n/x) x (x::a)
    else
        f n (x+1) a

let fact n = f n 2 []

fact 315
val factors : int list = [7; 5; 3; 3]

它可以工作，但我想将它变成一个函数:如何直接嵌套 f 来定义 fact ？我试图应用出色地表达的概念here ，但我无法抽象出如何将三参数函数 (f) 嵌套在一个参数一 (fact) 中。

Answer 1

1. 将fact的函数体移至新行。确保它是缩进的。
2. 在 fact 声明和刚刚移动的函数体之间添加一个空行。
3. 剪切fun的整个定义，并将其粘贴到您在第二步中创建的空行中。
4. 缩进复制的代码，使其成为 fact 的本地函数。