8 lines
207 B
Text
8 lines
207 B
Text
/* built-in */
|
|
load(to_poly_solver);
|
|
|
|
compose_functions([sin, cos]);
|
|
/* lambda([%g0],sin(cos(%g0)))*/
|
|
|
|
/* An implementation, to show a use of buildq */
|
|
compose(f, g) := buildq([f, g], lambda([x], f(g(x))));
|