Re: List of multiple elements

*To*: mathgroup at smc.vnet.net*Subject*: [mg112095] Re: List of multiple elements*From*: Bill Rowe <readnews at sbcglobal.net>*Date*: Mon, 30 Aug 2010 06:19:48 -0400 (EDT)

On 8/29/10 at 2:49 AM, weh at snafu.de (Dr. Wolfgang Hintze) wrote: >Bill, you are right, I made a mistake forgetting the Sort >m1[x_]:= Flatten[Take[#, {1, Length[#] - 1}] & /@ >Select[Split[Sort[x]], Length[#] > 1 &]] >Derivation by example >x={1, 1, 2, 3, 1, 3} >Sort[x] >{1, 1, 1, 2, 3, 3} >Split[%] >{{1, 1, 1}, {2}, {3, 3}} >Select[%, Length[#] > 1 &] >{{1, 1, 1}, {3, 3}} >Take[#, {1, Length[#] - 1}] & /@ % >Out[77]= >{{1, 1}, {3}} >In[78]:= >Flatten[%] >Out[78]= >{1, 1, 3} The derivation makes it clear what you want to do. Here is some code that does the same and seems to me to be simpler In[6]:= Flatten[Most /@ DeleteCases[Split@Sort[x], {_}]] Out[6]= {1,1,3}