29 lines
639 B
Plaintext
29 lines
639 B
Plaintext
#import "modules/std.sx";
|
|
|
|
add :: (a: s32, b: s32) -> s32 { a + b; }
|
|
mul :: (a: s32, b: s32) -> s32 { a * b; }
|
|
|
|
apply :: (f: (s32, s32) -> s32, x: s32, y: s32) -> s32 {
|
|
f(x, y);
|
|
}
|
|
|
|
main :: () {
|
|
// Store function in variable
|
|
fp : (s32, s32) -> s32 = add;
|
|
print("fp(3,4) = {}\n", fp(3, 4));
|
|
|
|
// Reassign to different function
|
|
fp = mul;
|
|
print("fp(3,4) = {}\n", fp(3, 4));
|
|
|
|
// Pass function pointer as argument
|
|
print("apply(add,5,6) = {}\n", apply(add, 5, 6));
|
|
print("apply(mul,5,6) = {}\n", apply(mul, 5, 6));
|
|
}
|
|
|
|
// ** stdout **
|
|
//fp(3,4) = 7
|
|
//fp(3,4) = 12
|
|
//apply(add,5,6) = 11
|
|
//apply(mul,5,6) = 30
|