Re: Sorting nested list

• To: mathgroup at smc.vnet.net
• Subject: [mg57363] Re: [mg57295] Sorting nested list
• From: "Tomas Garza Hernandez" <tgarza10 at msn.com>
• Date: Wed, 25 May 2005 06:03:13 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

```One possibility:

In[1]:=
ex={{a,Table[Random[Integer,{0,9}],{5}]},{b,

Table[Random[Integer,{0,9}],{5}]},{c,Table[Random[Integer,{0,9}],{5}]}}

Out[1]=
{{a,{5,3,3,6,0}},{b,{1,4,8,2,2}},{c,{0,0,6,5,5}}}

In[2]:=
Transpose[{#[[1]]&/@ex,Sort/@(#[[2]]&/@ex)}]

Out[2]=
{{a,{0,3,3,5,6}},{b,{1,2,2,4,8}},{c,{0,0,5,5,6}}}

Tomas Garza
Mexico City

>From: Gernot Pfanner <pfannerg at stud.uni-graz.at>
To: mathgroup at smc.vnet.net
>Subject: [mg57363] [mg57295] Sorting nested list
>Date: Tue, 24 May 2005 05:12:32 -0400 (EDT)
>
>Hi!
>
>Please forgive me, if this is the 100.000th posting concerning sorting a
>list. But at the moment I'm pretty confused, and so I ask you kindly for
>Given something like
>{{a,{2,4,1.,...}},{b,{3.2,-2,...}}}
>How do I sort just the inner lists (i.e. e.g. {2,4,1.,...}), so that my
>object finally looks like
>{{a,{1.,2,4.,...}},{b,{-2,3.2,...}}}
>In this spirit