Re: Get rid of onion-like parentheses
- To: mathgroup at smc.vnet.net
- Subject: [mg37169] Re: Get rid of onion-like parentheses
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Tue, 15 Oct 2002 04:17:38 -0400 (EDT)
- Organization: Universitaet Leipzig
- References: <aodnvf$mlm$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
SetAttributes[CircleTimes, Flat]
f[{x_}] := x;
f[{x_, y_, z___}] := f[Join[{x\[CircleTimes]y}, {z}]];
Regards
Jens
JJJ Shen wrote:
>
> Hi,
> I was trying to write a function, when given a list, say, {a,b,c,d}, the
> output is a op b op c op d, where op is (in LaTeX) \bigotimes, or "esc c *
> esc" (\[CircleTimes]) in Mathematica.
>
> 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?
>
> Thanks a lot.
>
> JT
>
> _________________________________________________________________
> Chat with friends online, try MSN Messenger: http://messenger.msn.com