RosettaCodeData/Task/First-class-functions/Maxima/first-class-functions.maxima
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07: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]