Re: sort list

• To: mathgroup at smc.vnet.net
• Subject: [mg47237] Re: sort list
• From: "Bo Le" <bole79 at email.si>
• Date: Wed, 31 Mar 2004 02:59:33 -0500 (EST)
• References: <c4be1n\$702\$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```Helo,

Sort is the solution to your problem:

In[1]:=
testList=Module[{s="borut"},
Transpose[
{Characters[s],ToCharacterCode[s]-96}
]
]

Out[1]=
{{b,2},{o,15},{r,18},{u,21},{t,20}}

In[2]:=
Sort[testList,(#1[[2]]<#2[[2]])&]

Out[2]=
{{b,2},{o,15},{r,18},{t,20},{u,21}}

I built the test list first and then sorted it accordig to the criteria, which is written
as a pure function that compares the second elements ([[2]]) of each two sequential pairs
(left pair = #1, right one = #2). The list is internally changing until the changing stops
and - voila, the sorted list is returned.

Helps?

Borut Levart
Slovenia

"Guibout" <guibout at ifrance.com> wrote in message news:c4be1n\$702\$1 at smc.vnet.net...
> Hi,
> I have a list of the form
> {{something1,x1},{something2,x2},{something3,x3}} where x1,x2, x3 are
> numbers. I want to sort this list with respect to xi. In other word if
> x2<x3<x1 I want Mathematica to produce:
> {{something2,x2},{something3,x3},{something1,x1}}