F# 的 nameof 运算符不是一等函数

在 F# 中，nameof 运算符不是一等函数，所以不能直接将它作为参数传递给其他函数。然而，我们可以通过使用一个辅助函数来间接地实现此功能。以下是一个示例代码：

open System

let nameof<'T>(expr: 'T -> obj) =
    let mutable name = ""
    let setname (v: obj) = name <- v.ToString()
    setname <| expr (unbox null)
    name

let printPropertyName (name: string) =
    printfn "Property name: %s" name

type Person = { Name: string; Age: int }

let person = { Name = "John"; Age = 30 }

let name = nameof<Person>(fun p -> p.Name)
printPropertyName name

在上面的代码中，我们定义了一个辅助函数 nameof，它接受一个表达式作为参数并返回该表达式的名称。在 nameof 函数内部，我们使用了一个可变字符串变量 name 来保存表达式的名称，并通过调用 setname 函数来设置它。注意，在调用 setname 函数时，我们需要将表达式作为参数传递给 expr 函数，并使用 unbox null 来将其转换为 obj 类型。

然后，我们定义了一个 printPropertyName 函数，它接受一个字符串参数并打印该字符串作为属性名称。

最后，我们创建了一个 Person 类型的对象 person，并使用 nameof 函数来获取 person.Name 属性的名称，并将其传递给 printPropertyName 函数进行打印。

运行上述代码，将会输出：

Property name: Name

这样，我们就通过一个辅助函数实现了 nameof 运算符的一等函数功能。