29 lines
478 B
Plaintext
29 lines
478 B
Plaintext
#include <order/interpreter.h>
|
|
|
|
#define ORDER_PP_DEF_8func1 ORDER_PP_FN ( \
|
|
8fn(8F, \
|
|
8ap(8F, 8("a string")) ))
|
|
|
|
#define ORDER_PP_DEF_8func2 ORDER_PP_FN ( \
|
|
8fn(8S, \
|
|
8adjoin(8("func2 called with "), 8S ) ))
|
|
|
|
ORDER_PP(
|
|
8func1(8func2)
|
|
)
|
|
// -> "func2 called with ""a string"
|
|
|
|
#define ORDER_PP_DEF_8func3 ORDER_PP_FN ( \
|
|
8fn(8F, \
|
|
8ap(8F, 1, 2) ))
|
|
|
|
ORDER_PP(
|
|
8func3(8plus)
|
|
)
|
|
// -> 3
|
|
|
|
ORDER_PP(
|
|
8ap( 8fn(8X, 8Y, 8mul(8add(8X, 8Y), 8sub(8X, 8Y))), 5, 3)
|
|
)
|
|
// -> 16
|