Hello I have these two lists:
l1={a, b, c} l2={k, l, m}
How can I get
{a, b, c, k, a, b, c, l, a, b, c, m}?
I toyed with Riffle along the line below to no avail
Riffle
Thanks
Riffle[Sequence@l1, l2]
In[12]:= Append[l1, #] & /@ l2 // Flatten Out[12]= {a, b, c, k, a, b, c, l, a, b, c, m}
This maps the pure function which appends an element to l1, onto the elements of l2, and then flattens the resulting list.
Hi Wojtek,
this is not very elegant, but it works:
l1 = {a, b, c}; l2 = {k, l, m}; Clear[lll]; Flatten[Thread[{lll, l2}] /. lll -> l1]
Regards -- Henrik
Slight variation, Join could be faster if it matters:
Flatten[l1~Join~{#} & /@ l2]
{a, b, c, k, a, b, c, l, a, b, c, m}
Special merge of two lists
Thanks I undestood what is going on only by removing the Flatten
Flatten
Thanks - your answer suits me. What is the advantage of the infix form compared to the normal form ie ?
Flatten[Join[l1, {#}]] & /@ l2
