Re: [Maxima-discuss] foo(a, 2, 4, 1, 3) -> bar(bar(bar(bar(a, 2), 4), 1), 3) ?

[Barton W. <wi...@un...>]

See also rreduce, lreduce, and tree_reduce. Examples:

(%i6)  rreduce(bar,[a,b,c]);
(%o6) bar(a,bar(b,c))

(%i7)  lreduce(bar,[a,b,c]);
(%o7) bar(bar(a,b),c)

(%i11) tree_reduce(bar,[a,b,c,d,e]);
(%o11) bar(bar(bar(a,b),bar(c,d)),e)

--Barton

From: Raymond Toy<mailto:toy...@gm...>
Sent: Saturday, July 9, 2022 12:00 PM
To: Eduardo Ochs<mailto:edu...@gm...>
Cc: <max...@li...><mailto:max...@li...>
Subject: Re: [Maxima-discuss] foo(a, 2, 4, 1, 3) -> bar(bar(bar(bar(a, 2), 4), 1), 3) ?

Non-NU Email



On Sat, Jul 9, 2022 at 8:55 AM Eduardo Ochs <edu...@gm...<mailto:edu...@gm...>> wrote:
Hi list,

how do I define a function "foo" that does this?

  foo(a, 2, 4, 1, 3)

returns the result of:

  bar(bar(bar(bar(a, 2), 4), 1), 3)

Maybe this:

foo([x]) := xreduce(bar, x);

foo(a,2,4,1,3);
bar(bar(bar(bar(a, 2), 4), 1), 3)


Thanks in advance!
  Eduardo Ochs
  http://angg.twu.net/eev-maxima.html<https://urldefense.com/v3/__http:/angg.twu.net/eev-maxima.html__;!!PvXuogZ4sRB2p-tU!G1bRvWQwfckiFJerHjF9VjB7rsqkGtqHpSoncS1IIr3YeJJ298-gYiAuami9XMteUYSSHhJNuNmPVEMdRpQ$>


_______________________________________________
Maxima-discuss mailing list
Max...@li...<mailto:Max...@li...>
https://lists.sourceforge.net/lists/listinfo/maxima-discuss<https://urldefense.com/v3/__https:/lists.sourceforge.net/lists/listinfo/maxima-discuss__;!!PvXuogZ4sRB2p-tU!G1bRvWQwfckiFJerHjF9VjB7rsqkGtqHpSoncS1IIr3YeJJ298-gYiAuami9XMteUYSSHhJNuNmPTAxsghY$>


--
Ray