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