For example how can I write
In:
pureFunctionSyntax[myF] /@ {7, 3}
Out:
{myF[7, Log[7]], myF[3, Log[3]]}
$\begingroup$
$\endgroup$
1
-
$\begingroup$ This may be closely related: Overlapping pure functions $\endgroup$– Kuba ♦Nov 18 '15 at 16:31
Add a comment
|
$\begingroup$
$\endgroup$
5
Imo the most common/readable/flexible way:
Function[h, h[#, Log[#]] &][myF] /@ {7, 3}
and for fun, less general, as pointed in comments:
Through@*#[Identity, Log] &[myF] /@ {7, 3}
which can be even shorter, thanks to ybeltukov
Through@*#[# &, Log] &[myF] /@ {7, 3}
-
1$\begingroup$ Wow, you can write even shorter
Through@*#[# &, Log] &. $\endgroup$ Nov 18 '15 at 17:10 -
-
1$\begingroup$ This wont work if
myFhas a definition. For exampleThrough@*#[Identity, Log] &[f[#1] + #2 &] /@ {7, 3}outputs{Log[7] + f[Identity][7], Log[3] + f[Identity][3]}not{f[7] + Log[7], f[3] + Log[3]}. $\endgroup$– userNov 18 '15 at 21:19 -
$\begingroup$ @user This is one of reasons why I've said it is less general, but the first one will work anyway. $\endgroup$– Kuba ♦Nov 18 '15 at 22:08
-
$\begingroup$ @user I've edited the question to stress out your concerns. $\endgroup$– Kuba ♦Nov 18 '15 at 22:41
$\begingroup$
$\endgroup$
Yes, you can use only pure functions:
f = ## &[#, Log@#] & /* # &;
f[myF] /@ {7, 3}
(* {myF[7, Log[7]], myF[3, Log[3]]} *)
It can be shorter with a bit different syntax:
g = ## &[#, Log@#] &;
g /* myF /@ {7, 3}
(* {myF[7, Log[7]], myF[3, Log[3]]} *)
answered Nov 18 '15 at 16:54
$\begingroup$
$\endgroup$
I like this syntax:
In:
f[#, Log[#]] & /. f -> # &[myF] /@ {7, 3}
Out:
{myF[7, Log[7]], myF[3, Log[3]]}