RosettaCodeData/Task/Catamorphism/Maxima/catamorphism-1.maxima
2015-02-20 09:02:09 -05:00

2 lines
89 B
Text

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