MathGroup Archive 2010

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

Search the Archive

Applying Apply

  • To: mathgroup at
  • Subject: [mg107782] Applying Apply
  • From: Chris Degnen <degnen at>
  • Date: Thu, 25 Feb 2010 17:38:27 -0500 (EST)

Can anyone suggest an elegant way to apply a function - in this case a
Style - to elements in a list.
In the example below I'm applying colours to their names.  (I don't
know how Text is being used so I aimed to preserve the original
structure).  As you can see it took me two lines to splice in the
colour styles.  I thought I should have been able to do it in one, but
couldn't figure out how.

plabel = {Text["Orange", {10, 44}], Text["Blue", {10, 50}],
   Text["Green", {2, 99}], Text["Red", {2, 20}]};
textColours = {Orange, Blue, Green, Red};
plabel2 =
  Append[Transpose[Apply[{#1, #2} &, plabel, 1]], textColours];
plabel = Apply[Text[Style[#1, #3], #2] &, Transpose[plabel2], 1]

  • Prev by Date: Re: Typsetting
  • Next by Date: Re: minimize's constraint
  • Previous by thread: Re: Re: Programmatically saving myself
  • Next by thread: Re: Applying Apply