MathGroup Archive 2009

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • Prev by Date: DXF export success
  • Next by Date: Re: How to make {f,g}[a,b,c] to become {{f[a],g[a]},{f[b],g[b]},{f[c],g[c]}}
  • Previous by thread: Re: How to make {f,g}[a,b,c] to become {{f[a],g[a]},{f[b],g[b]},{f[c],g[c]}}
  • Next by thread: Re: How to make {f,g}[a,b,c] to become {{f[a],g[a]},{f[b],g[b]},{f[c],g[c]}}