MathGroup Archive 2012

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

Search the Archive

Re: new functional operator


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