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]