Re: Get rid of onion-like parentheses
- To: mathgroup at smc.vnet.net
- Subject: [mg37180] Re: Get rid of onion-like parentheses
- From: Tom Burton <tburton at brahea.com>
- Date: Tue, 15 Oct 2002 04:17:58 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
On 10/13/02 11:24 PM, in article aodnvf$mlm$1 at smc.vnet.net, "JJJ Shen"
<jushen1 at hotmail.com> wrote:
> Here's the code I wrote:
> f[{x_}]:=x;
> f[{x_, y_, z___}]:=f[Join[{x\[CircleTimes]y},{z}]];
>
> However, the output was not exactly what I expected, it looked like:
>
> ((a op b) op c) op d
>
> It seems when doing the "Join" operation, a pair of parenthesis was added.
>
> Can someone let me know how I can get rid of these parenthesis?
SetAttributes[CircleTimes,Flat]
f[{a,b,c,d}]
a\[CircleTimes]b\[CircleTimes]c\[CircleTimes]d
Tom Burton