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]