javascript - F# 组合函数

Question

我正在尝试学习 F# 函数式编程，但在将一些概念从 Javascript 函数式编程转换为 F# 时遇到了一些问题。我有这段代码，使我能够像这样用 Javascript 编写函数的“管道”:

const compose = ((functions) => {
    return ((input) => {
        return functions.reduce((ack, func) => {
            return func(ack);
        }, input);
    });
});

const addOne = ((input) => input + 1);
const addTwo = ((input) => input + 2);

const composedFunction = compose([addOne, addTwo]);

const result = composedFunction(2);

console.log(result);

甚至可以在 F# 中进行这种组合吗？我该怎么做？

Answer 1

假设您需要组合的函数列表在编译时未知，您可以使用折叠来组合您的函数列表。

在您的回答中，我看到您找到了一个非常接近 reduce 的解决方案，它是 fold 的一个特例，但它没有初始状态，因此当列表为空时它会失败。

由于我们无法通过编译保证列表不为空，因此我强烈建议您在这种情况下使用折叠，将 id 函数作为初始状态:

let compose funcs = (fun x -> x |> List.fold (>>) id funcs)

我们可以应用 eta 减少:

let compose funcs = List.fold (>>) id funcs

再来一次:

let compose = List.fold (>>) id

虽然在最后一步中您将在值限制中运行，但它可能会随着代码的其余部分消失:

let addOne x = x + 1
let addTwo x = x + 2
let compose = List.fold (>>) id
let list = [addOne; addTwo]
let composed = compose list
let elist = []
let composed2 = compose elist

// test
let result = composed 1
let result2 = composed2 1

// val result : int = 4
// val result2 : int = 1