Re: How to make {f,g}[a,b,c] to become {{f[a],g[a]},{f[b],g[b]},{f[c],g[c]}}
- To: mathgroup at smc.vnet.net
- Subject: [mg105334] Re: How to make {f,g}[a,b,c] to become {{f[a],g[a]},{f[b],g[b]},{f[c],g[c]}}
- From: "M.Roellig" <markus.roellig at googlemail.com>
- Date: Sat, 28 Nov 2009 01:07:31 -0500 (EST)
- References: <heoe15$4ph$1@smc.vnet.net>
On 27 Nov., 12:43, Lawrence Teo <lawrence... at yahoo.com> wrote:
> I have a question. How to make {f,g}[a,b,c] to become {{f[a],g[a]},{f
> [b],g[b]},{f[c],g[c]}}?
>
> I want to do {GPD, Population} for all countries.
>
> Something similar to the following...
> {CountryData[#, "GDP"] &, CountryData[#, "Population"] &} /@
> CountryData[]
>
> It ends up in the form of {f,g}[a,b,c,d,...]. I need a way to
> 'distribute' the country name into the GDP and Population portion.
>
> Thanks.
Hi,
try
{f, g}[a, b, c] /. x__[y__] :> Map[Through[x[#]] &, {y}]
Markus