RE: how to compact many maps?
- To: mathgroup at smc.vnet.net
- Subject: [mg70781] RE: [mg70748] how to compact many maps?
- From: "David Park" <djmp at earthlink.net>
- Date: Fri, 27 Oct 2006 00:28:30 -0400 (EDT)
Arek,
Two possible suggestions:
tab = Table[{Random[], Random[]}, {10}, {5}];
Map[{First[#], f[Last[#]]} &, tab, {2}]
tab /. {a_, b_} -> {a, f[b]}
David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/
From: Arkadiusz.Majka at gmail.com [mailto:Arkadiusz.Majka at gmail.com]
To: mathgroup at smc.vnet.net
Hi,
For table of the following structure
tab=Table[{Random[],Random[]},{10},{5}]
I want to apply function f to the second argument of list.
I did:
(MapAt[f, #, 2] & /@ #) & /@ tab
How can I do it in a simpler, more compact way?
Thanks,
Arek