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