f# - 通过 Alea GPU 内核函数

Question

这在带有 Alea GPU 的 F# 中是否可行？

声明一个函数：

let my_function = fun a b -> a + b

传递内核该函数，并在内核中使用它：

let result = my_function 5 9

我知道另一种方法是简单地静态声明函数，例如：

[<ReflectedDefinition>]
let my_function a b =
    a + b

但我希望能够my_function根据程序的参数进行更改。

例如：

[<ReflectedDefinition>]
let kernel (a:int) (adder:int->int) =
    let result <- adder a

let transformKernel = <@ kernel @> |> Compiler.makeKernel

let add_num b =
    fun (a:int) ->
        a + b

let run num1 num2 =
    let adder = add_num num2
    let gpu = Gpu.Default
    let num1Gpu = gpu.Allocate(num1)
    let adderGpu = gpu.Allocate(adder)
    let lp = LaunchParam(1, 1)
    gpu.Launch transformKernel lp num1Gpu adderGpu
    // return result


let my_result = run 3 7
// my_result should be 10

Answer 1

我在Alea GPU 示例库中找到了解决方案。我能看到的最简单的例子是 F# Generic Transform 示例。它使用代码引用来编译基于某种指定类型的任何给定函数的内核（例如 int -> int -> int）