Re: Get rid of onion-like parentheses

*To*: mathgroup at smc.vnet.net*Subject*: [mg37178] Re: Get rid of onion-like parentheses*From*: "Allan Hayes" <hay at haystack.demon.co.uk>*Date*: Tue, 15 Oct 2002 04:17:54 -0400 (EDT)*References*: <aodnvf$mlm$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

JJJ, Try: f[{x_}]:=x; f[{x_,y__}]:=x\[CircleTimes]y Test f[{a,b,c,d}] a\[CircleTimes]b\[CircleTimes]c\[CircleTimes]d -- Allan --------------------- Allan Hayes Mathematica Training and Consulting Leicester UK www.haystack.demon.co.uk hay at haystack.demon.co.uk Voice: +44 (0)116 271 4198 Fax: +44 (0)870 164 0565 "JJJ Shen" <jushen1 at hotmail.com> wrote in message news:aodnvf$mlm$1 at smc.vnet.net... > 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 > >