Question

我有以下F＃功能

let Fetch logger id = 
    logger "string1" "string2"
    // search a database with the id and return a result

在我的C＃类中，我想调用 Fetch F＃函数来模拟 logger 函数。所以我有以下C＃函数作为mocker。

void Print(string x, string y) { // do nothing }

我尝试使用以下内容从C＃类调用F＃函数。

var _logger = FuncConvert.ToFSharpFunc<string, string>(Print);
var _result = Fetch(logger, 3);

FuncConvert.ToFSharpFunc的问题是只接受一个类型参数。当我将 Fetch F＃记录器功能更改为以下内容时，当我使用ToFSharpFunc（打印）时，它可以正常工作，其中C＃Print函数也包含一个字符串。

let Fetch logger id = 
    logger "string1"
    // search a database with the id and return a result

有人有想法吗？

Answer 1

短版

var tupleLogger = FuncConvert.ToFSharpFunc<Tuple<string,string>>(t=>Print(t.Item1,t.Item2));
var logger = FuncConvert.FuncFromTupled(tupleLogger);

MyOtheProject.MyModule.Fetch(logger, 3);

长版

F＃函数只接受一个参数。多个参数本质上创建嵌套函数。你需要在C＃方面做同样的事情。

使用Intellisense检查C＃中logger参数的类型。这是

Microsoft.FSharp.Core.FSharpFunc<string, Microsoft.FSharp.Core.FSharpFunc<string, a>>

FuncConvert.ToFSharpFunc无法创建此内容。 FuncFromTupled虽然可以从FSharpFunc创建这个，它使用多个字段作为参数的元组。

这是可以由ToFsharpFunc创建的东西：

FSharpFunc<Tuple<string,string>,Unit> tupleLogger = FuncConvert.ToFSharpFunc<Tuple<string,string>>(
       t=> Print(t.Item1,t.Item2));

或

var tupleLogger = FuncConvert.ToFSharpFunc<Tuple<string,string>>(t=> Print(t.Item1,t.Item2));

正如FuncFromTupled所描述的那样，它是A utility function to convert function values from tupled to curried form.。 tupleLogger是一种我们需要转换为咖喱形式的元组形式：

var logger = FuncConvert.FuncFromTupled(tupleLogger);

结果代码如下：

var tupleLogger = FuncConvert.ToFSharpFunc<Tuple<string,string>>(t=>Print(t.Item1,t.Item2));
var logger = FuncConvert.FuncFromTupled(tupleLogger);

MyOtheProject.MyModule.Fetch(logger, 3);

您可以创建一个实用程序函数来组合两个转换：

public static class MyFuncConvert
{
    public static FSharpFunc<T1, FSharpFunc<T2, Unit>> ToFSharpFunc<T1, T2>(Action<T1, T2> action)
    {
        var tupled = FuncConvert.ToFSharpFunc<Tuple<T1, T2>>(
                                  t => action(t.Item1, t.Item2));
        var curried = FuncConvert.FuncFromTupled(tupled);
        return curried;
    }
}

这将允许你写：

var logger = MyFuncConvert.ToFSharpFunc<string,string>(Print);

Answer 2

F＃函数只能有一个参数。例如：logger "string1" "string2"时，表达式logger "string1"会在其中创建另一个带有"string1"的函数，然后可以将"string2"作为参数。所以要转换它，你可以创建这样的辅助方法：

public static class FuncConvertExt
{
    public static FSharpFunc<T1, FSharpFunc<T2, Unit>> Create<T1, T2>(Action<T1, T2> action)
    {
        Converter<T1, FSharpFunc<T2, Unit>> conv = value1 =>
        {
            return FuncConvert.ToFSharpFunc<T2>(value2 => action(value1, value2));
        };

        return FSharpFunc<T1, FSharpFunc<T2, Unit>>.FromConverter(conv);
    }
}

然后你可以这样做：

var func = FuncConvertExt.Create<string, string>(Print);
func.Invoke("aaa").Invoke("bbb");

更多信息：https://blogs.msdn.microsoft.com/jaredpar/2010/07/27/converting-system-funct1-tn-to-fsharpfuncttresult/

从C＃传递函数调用F＃函数作为参数

2 个答案: