RosettaCodeData/Task/Catamorphism/Maxima/catamorphism-1.maxima
2023-07-01 13:44:08 -04:00

2 lines
89 B
Text

lreduce(f, [a, b, c, d], x0);
/* (%o1) f(f(f(f(x0, a), b), c), d) */