RosettaCodeData/Task/First-class-functions/Maxima/first-class-functions.maxima
2023-07-01 13:44:08 -04:00

5 lines
185 B
Text

a: [sin, cos, lambda([x], x^3)]$
b: [asin, acos, lambda([x], x^(1/3))]$
compose(f, g) := buildq([f, g], lambda([x], f(g(x))))$
map(lambda([fun], fun(x)), map(compose, a, b));
[x, x, x]