Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2002
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2002

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • Prev by Date: SGML Catalog for the WRI DTDs?
  • Next by Date: Re: defining a function with D
  • Previous by thread: Re: Get rid of onion-like parentheses
  • Next by thread: Re: Get rid of onion-like parentheses