RosettaCodeData/Task/Catamorphism/Maple/catamorphism-2.maple

3 lines
151 B
Plaintext

> foldl( (a,b) ->a*T+b, op(map2(op,1,[op( 72*T^5+37*T^4-23*T^3+87*T^2+44*T+29 )])));
((((72 T + 37) T - 23) T + 87) T + 44) T + 29