function - F# 将(自定义)类型分配给函数

Question

尽管我在 F# 中取得了所有进展，但我仍然迷失在各种构造函数和解构函数语法中。

我正在运行递归模拟。参数之一是停止条件的函数。我有多种可能的停止条件可供选择。我让他们都有相同的签名。因此，我认为将这些函数锁定为自定义类型会很好，而且很有教育意义，这样就不会发送任何恰好与签名匹配的函数:

type StoppingCondition = | StoppingCondition of (ReturnType -> ReturnType -> int -> float -> bool) 

我认为我做对了，从教程来看，对于单例区分联合，具有类型名称和相同的构造函数名称(令人困惑......)。但现在我不知道如何将此类型应用于实际函数:

let Condition1 lastRet nextRet i fl =
    true

如何使 Condition1 成为 StoppingCondition 类型？我敢打赌这很微不足道。但我尝试将 StoppingCondition 作为 let 之后的第一个、第二个或最后一个术语，带或不带括号和冒号。一切都是错误。

感谢您的耐心等待。

编辑:

我将尝试综合我从四个答案中得出的结论(截至目前)，一切都很好:

尝试模仿这种模式:

s : string = "abc"

我试图写:

type StoppingCondition = | StoppingCondition of (ReturnType -> ReturnType -> int -> float -> bool)

let condition1 lastRet nextRet i fl : StoppingCondition =  // BAD 
    //wrong for a type alias, totally wrong for a union constructor
    true
    //or
let condition1 : StoppingCondition lastRet nextRet i fl = // BAD again
    true

或 : Stopping Condition 的其他插入(尝试以构造函数的方式在那一行中为其添加前缀)。

现在我明白，要得到我想要的东西，我必须这样做:

type StoppingCondition = | StoppingCondition of (ReturnType -> ReturnType -> int -> float -> bool)
let conditionFunc1 lastRet nextRet i fl =   //...
    true
let stoppingCondition1 = StoppingCondition conditionFunc1 
    //or
let stoppingCondition2 = StoppingCondition <| (func lastRet nextRet i fl -> false) 
    //and there's another variation or 2 below

我没有意识到这种方法的一个很大的缺点是联合类型与类型别名的不同。字符串的类型别名of string在声明时承认字符串函数——它确实是一个字符串并且做“字符串的事情。字符串的单例区分联合of string——不是不再是字符串。要让它执行“字符串操作”，您必须解开它。(或者将这些函数的版本写入您的类型(可能是字符串函数的包装器)。)同样，我的函数的类型别名接受这些参数。我的函数的 DU 只是一个包装器，不接受参数。所以这不适用于可区分联合:

let x = stoppingCondition1 ret1 ret2 2 3.0 // BAD
    //"stoppingCondition1 is not a function and cannot be applied"

在我的例子中，没有足够的值(value)来解决包装器问题。但是类型别名可以工作:

type StoppingAlias = ReturnType -> ReturnType -> int -> float -> bool
let stoppingCondition:StoppingAlias = fun prevRet nextRet i x -> true
let b = stoppingCondition ret1 ret2 10 1.0  // b = true

我刚才所说的可能不太清楚，但我想我已经接近了很多。

编辑2:

旁注。我的问题是关于定义函数的类型。它使用类型别名和联合类型进行比较。当我尝试执行这些操作时，我还了解了如何使用类型别名:

这有效(来自:https://fsharpforfunandprofit.com/posts/defining-functions/):

type Adder = decimal -> decimal -> decimal
let f1 : Adder = (fun x y -> x + y)
    //or
let f2 : decimal -> decimal -> decimal = fun x y -> x + y

但这些都是错误的:

let (f2 : Adder) x y = x + y    // bad 
let (f3 x y) : (decimal -> decimal -> decimal) = x + y   // bad 
let (f3 : (decimal -> decimal -> decimal)) x y  = x + y  // bad

关于整个问题的一些讨论:F# Type declaration possible ala Haskell?

(而且，是的，“分配类型”也不是正确的说法。)

Answer 1

您没有“使其成为类型”StoppingCondition。您声明 StoppingCondition 类型的值并将 Condition1 作为 DU 案例构造函数的参数传递:

let stop = StoppingCondition Condition1

然而，这意味着每次您想要访问单个 DU 案例中包含的函数时，您都必须以某种方式对其进行模式匹配；这可能会变得烦人。

您说您不希望任何满足签名的函数作为有效的停止条件；但是，它似乎足够具体，可以避免“意外”传递“不适当”的函数 - 这样，您可以做一些更简单的事情 - 将 StoppingCondition 定义为特定函数类型的类型别名:

type StoppingCondition = ReturnType -> ReturnType -> int -> float -> bool

现在，您可以在需要指定类型的任何地方使用 StoppingCondition，并且您传递/返回的实际值可以是满足签名 ReturnType -> ReturnType -> int - 的任何函数> float -> bool 。