Re: Filtering same elements from two lists
- To: mathgroup at smc.vnet.net
- Subject: [mg67947] Re: Filtering same elements from two lists
- From: "Jens-Peer Kuska" <kuska at informatik.uni-leipzig.de>
- Date: Tue, 18 Jul 2006 05:50:31 -0400 (EDT)
- Organization: Uni Leipzig
- References: <e9frcp$2kg$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi, list1 = {{PLUS1, 55, 43}, {PLUS2, 555, 83}, {PLUS3, 4, 12}} ; list2 = {{PLUS3, 55, 43}, {PLUS1, 555, 83}, {PLUS2, 4, 12}} ; and Prepend[Join @@ (Rest /@ # ), #[[1, 1]]] & /@ Split[Sort[Join[list1, list2]], First[#1] === First[#2] &] ??? Regards Jens "LectorZ" <lectorz at mail.ru> schrieb im Newsbeitrag news:e9frcp$2kg$1 at smc.vnet.net... | Dear experts, | | I do have to not ordered lists of the following type (same shape and | length): | | list1={{PLUS1, 55, 43}, {PLUS2, 555, 83}, {....},...} | | list2={{..., ...,...}, {..., ...,...},{..., ...,...},{..., | ...,...},{PLUS1,77, 99}, {..., ...,...},{PLUS2, 52,103}, {....}} | | I have to filter the same records according to the 1st element of each | sublist and make a new list with the joint numbers from both lists. | | The result in this case should be: | | resultlist={{PLUS1, 55, 43, 77, 99}, {PLUS2, 555, 83, 52,103}, {....}} | | Thanks, | | LZ |