Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2012

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

Search the Archive

Re: new functional operator

  • To: mathgroup at smc.vnet.net
  • Subject: [mg126737] Re: new functional operator
  • From: Rui <rui.rojo at gmail.com>
  • Date: Sun, 3 Jun 2012 05:00:04 -0400 (EDT)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • References: <jjfd6e$7u7$1@smc.vnet.net> <jjpakk$ov1$1@smc.vnet.net>

On Wednesday, March 28, 2012 6:57:09 AM UTC-3, roby wrote:
> Well, here I have an "almost perfect" postfix solution. Enjoy.
> 
> In[11]:=     "}4,3,2,1{@/soC@/niS@/naT" // StringReverse //
> ToExpression
> 
> Out[11]=     {Tan[Sin[Cos[1]]], Tan[Sin[Cos[2]]], Tan[Sin[Cos[3]]],
> Tan[Sin[Cos[4]]]}
> 
> Robert

Could be nicely extended to allow for subscripting with the level specification of the map

MakeExpression[RowBox[{l_, UnderscriptBox["//", i_], r_}], 
  form : StandardForm] := 
 MakeExpression[
  RowBox[{"Map", "[", RowBox[{r, ",", l, ",", i}], "]"}], form]



  • Prev by Date: Re: Using CountryData to Get US Population by State
  • Next by Date: Re: Using CountryData to Get US Population by State
  • Previous by thread: Re: Sum of Products - Complete The Square
  • Next by thread: Re: new functional operator