Re: Manipulating list
- To: mathgroup at smc.vnet.net
- Subject: [mg101508] Re: Manipulating list
- From: Malcolm <mwjdavidson at googlemail.com>
- Date: Thu, 9 Jul 2009 01:54:28 -0400 (EDT)
- References: <h31utf$c2a$1@smc.vnet.net>
On Jul 8, 1:11 pm, kosal lee <leeko... at yahoo.com> wrote:
> Hello Mathematica users
>
> I am new to Mathematica and I have one particular problem I would like yo=
u to help me.
> Suppose I have two lists:
>
> list1 = {{A,B,C},{D,E,F},{G,H,I}}
> list2 = {{1,2},{3,4},{5,6}}
>
> I want to have the third elements in each of member list in list1 (that i=
s, C,F,I) to appear in the first position in each member list in list2
>
> that is, i want to have list ={{C,1,2},{F,3,4},{I,5,6}}
>
> Thank you.
> Kosal
Here is one solution (I've changed to lower case as some capital case
letters are variables in Mathematica e.g. I for imaginary part)
list1 = {{a, b, c}, {d, e, f}, {e, h, i}};
list2 = {{1, 2}, {3, 4}, {5, 6}};
Flatten /@ Thread@List[list1[[All, 3]], list2[[All, 1 ;; 2]]]
Mac