Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: How to make {f,g}[a,b,c] to become

• To: mathgroup at smc.vnet.net
• Subject: [mg105329] Re: [mg105301] How to make {f,g}[a,b,c] to become
• From: Leonid Shifrin <lshifr at gmail.com>
• Date: Sat, 28 Nov 2009 01:06:33 -0500 (EST)
• References: <200911271127.GAA04398@smc.vnet.net>

Well,

here is one way:

In[1]:= {f,g}[a,b,c]/.(funs:{__})[args__]:>Map[Through[funs[#]]& ,{args}]

Out[1]= {{f[a],g[a]},{f[b],g[b]},{f[c],g[c]}}

But if I were you, I wouldn't bother - just remove the <&> signs for each
individual term in the list, and put one after the entire list:

{CountryData[#, "GDP"] , CountryData[#, "Population"] }& /@
 CountryData[]

Regards,
Leonid




On Fri, Nov 27, 2009 at 2:27 PM, Lawrence Teo <lawrenceteo 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.
>
>

• References:
  • How to make {f,g}[a,b,c] to become {{f[a],g[a]},{f[b],g[b]},{f[c],g[c]}}
    • From: Lawrence Teo <lawrenceteo@yahoo.com>