Re: How can I concatenate elements

*To*: mathgroup at smc.vnet.net*Subject*: [mg119924] Re: How can I concatenate elements*From*: Stefan Salanski <wutchamacallit27 at gmail.com>*Date*: Wed, 29 Jun 2011 05:31:18 -0400 (EDT)*References*: <iu4a05$jpm$1@smc.vnet.net>

On Jun 25, 5:32 am, "Leandro Tenfen" <leandroten... at hotmail.com> wrote: > Hi, > > I have two lists: > > s1={1,2,3,4,5,6}; > s2={c,k}; > > How can I concatenate elements of lists as follows: > > s3={1c,2c,3c,4c,5c,6c,1k,2k,3k,4k,5k,6k} > > Many Thanks! It looks like Outer is the function which fits your problem best. Just use StringJoin as your product function. To use StringJoin, you will need to have both lists be lists of strings, so {"1", "2", "3", ..etc... } not just {1,2,3...}, and {"c","k"} not just {c,k}. In[21]:= s1 = ToString /@ Range[6]; s2 = {"c", "k"}; In[23]:= Flatten@Outer[StringJoin, s1, s2] Out[23]= {"1c", "1k", "2c", "2k", "3c", "3k", "4c", "4k", "5c", "5k", "6c", "6k"} if you want the resulting list in the order you specified, you can either sort that list.. though you'd have to sort it starting from the end of the string, so like In[24]:= StringReverse /@ Sort[StringReverse /@ %] Out[24]= {"1c", "2c", "3c", "4c", "5c", "6c", "1k", "2k", "3k", "4k", "5k", "6k"} Or you can just switch the order of the lists in Outer, and the order of the elements passed to StringJoin like this: In[25]:= Flatten@Outer[StringJoin[#2, #1] &, s2, s1] Out[25]= {"1c", "2c", "3c", "4c", "5c", "6c", "1k", "2k", "3k", "4k", "5k", "6k"} Hope that helps -Stefan Salanski