Можно ли передать функцию F # посредством Reflection?

Question

Можно ли передать функцию F # посредством Reflection?

(*in module A*) 
type Foo() = 
    static member bar n = {1..n} 

let functionUsingFoobar (x:(int -> #('a seq)) n = 
    let z = BarFoo.ofSeq (x n) 
    z.count 

(* in module B 
here is where I want to pass Foo.bar by reflection*) 
let y = functionUsingFoobar Foo.bar 1000 

Я не могу вызывать элемент без параметра args, поэтому приложение частичной функции через InvokeMember не может работать.

let foo = new Foo() 
let z = foo.GetType().InvokeMember("bar", System.Reflection.BindingFlags.InvokeMethod, null, foo, [|1000|]) 
(*tried null, [||], [|null|] for args parameter*) 

Я из идей, как передать функцию отражения

Answer 1

Проблема заключается в том, что GetMethod возвращается a MethodInfo, но вам нужно значение функции F #. Самый простой способ преодолеть это несоответствие, вероятно, использовать CreateDelegate для создания .NET делегата от метода, а затем рассматривать метод Invoke как функцию значения правильного типа:

let d = 
    typeof<Foo>.GetMethod("bar").CreateDelegate(typeof<System.Func<int,seq<int>>>) 
    :?> System.Func<int,seq<int>> 
functionUsingFooBar d.Invoke 1000 

Answer 2

Если это то, что я думаю, что вы хотите, это работает просто отлично

type Foo() = 
    static member bar n = {1..n} 

let functionUsingFoobar (x:(int -> #('a seq))) n = 
    (x n) |> Seq.length 

let y = functionUsingFoobar Foo.bar 1000 
let foo = new Foo() 
let z = fun t -> foo.GetType().InvokeMember("bar", System.Reflection.BindingFlags.InvokeMethod, null, foo, [|t|])