summaryrefslogtreecommitdiffstats
path: root/tests/language-feature/higher-order-functions/simple.slang
blob: 13fc16aa550d06e375b4a15bf207ea73af6e0e84 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
//TEST(compute, vulkan):COMPARE_COMPUTE_EX():-vk -compute -shaderobj -output-using-type
//TEST(compute):COMPARE_COMPUTE_EX():-slang -compute -shaderobj -output-using-type
//TEST(compute):COMPARE_COMPUTE:-cpu -shaderobj -output-using-type
//TEST(compute):COMPARE_COMPUTE:-slang -shaderobj -mtl -output-using-type

//TEST_INPUT:ubuffer(data=[0 0 0 0], stride=4):out,name=outputBuffer
RWStructuredBuffer<uint> outputBuffer;

func twice<A>(f : functype (A) -> A, a : A) -> A
{
    return f(f(a));
}

func apply2<A, B, C>(f : functype (A, B) -> C, a : A, b : B) -> C
{
    return f(a, b);
}

func multiply(x : float, y : float) -> float
{
    return x * y;
}

func square(x : float) -> float
{
    return apply2<float, float, float>(multiply, x, x);
}

[numthreads(4, 1, 1)]
void computeMain(uint tig : SV_GroupIndex)
{
    outputBuffer[tig] = uint(twice(square, -2.f));
}