Re: List Operations
- To: mathgroup at smc.vnet.net
- Subject: [mg65848] Re: List Operations
- From: "LectorZ" <lectorz at mail.ru>
- Date: Tue, 18 Apr 2006 06:56:44 -0400 (EDT)
- References: <e1nn6s$lmm$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Thank you all for your help:
I took this one from Jean-Mark:
({#1[[1, 1]], Plus @@ #1[[2]]} &) /@ Transpose /@ Split[mylist /. {n_,
x_,
y_} -> {n, x*y}, #1[[1]] == #2[[1]] &]
Regards,
LZ