In[119]:=

l = {a, b, c, c, d} ;

Split[l]

Out[120]=

{{a}, {b}, {c, c}, {d}}

In[121]:=

l2 = {1, 2, 3, 2, 2, 3} ;

Split[l2]

Out[122]=

{{1}, {2}, {3}, {2, 2}, {3}}

In[123]:=

Select[Join[l, l2], NumericQ]

Out[123]=

{1, 2, 3, 2, 2, 3}

In[124]:=

Join[l, l2]

Out[124]=

{a, b, c, c, d, 1, 2, 3, 2, 2, 3}

In[125]:=

Select[%, #>0&]

Out[125]=

{1, 2, 3, 2, 2, 3}

In[126]:=

{#1^#2} &[a, b]

Out[126]=

{a^b}

In[127]:=

##1##2&[{a, b}, {1, 2}]//Thread

Out[127]=

{a1, b2}

Created by Mathematica  (October 1, 2006) Valid XHTML 1.1!