Re: Applying function to nested lists
- To: mathgroup at smc.vnet.net
- Subject: [mg57921] Re: [mg57883] Applying function to nested lists
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Sun, 12 Jun 2005 04:34:53 -0400 (EDT)
- Reply-to: hanlonr at cox.net
- Sender: owner-wri-mathgroup at wolfram.com
x={{1,2,3},{{4,5,6},7,8},9};
x/.a_?NumericQ:>f[a]
{{f(1),f(2),f(3)},{{f(4),f(5),f(6)},f(7),f(8)},f(9)}
or if f is or can be made Listable
SetAttributes[f, Listable];
f[x]
{{f(1),f(2),f(3)},{{f(4),f(5),f(6)},f(7),f(8)},f(9)}
%==%%%
True
Bob Hanlon
>
> From: Kerry Kim <kjkim at u.washington.edu>
To: mathgroup at smc.vnet.net
> Date: 2005/06/11 Sat AM 03:35:40 EDT
> Subject: [mg57921] [mg57883] Applying function to nested lists
>
> Hello,
>
> I'm trying to get Mathematica to do the following:
>
> Suppose
> x = {{1,2,3},{{4,5,6},7,8},9}
> f = some function
>
> How can I get f applied to each element of x but with the list structure
> intact? I.e. I want something that generates:
>
> {{f[1],f[2],f[3]},{{f[4],f[5],f[6]},f[7],f[8]},f[9]}
>
> Thank you!
> -Kerry Kim
>
>