RosettaCodeData/Task/Catamorphism/Maxima/catamorphism-1.maxima

3 lines
89 B
Plaintext

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