通过Alea GPU内核的一个功能

时间:2017-12-07 05:29:41

标签: f# aleagpu

这是否可以在F#中使用Alea GPU?

声明一个函数:

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

1 个答案:

答案 0 :(得分:0)

我在Alea GPU sample gallery找到了解决方法。我能看到的最简单的例子是F#Generic Transform示例。它使用code quotations基于某些指定类型的任何给定函数编译内核(例如int - &gt; int - &gt; int)