MathGroup Archive 2004

[Date Index] [Thread Index] [Author Index]

Search the Archive

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}}
> Thanks for your help
> Vincent
>


  • Prev by Date: Re: Constant function Integrate Assumption
  • Next by Date: RE: sort list
  • Previous by thread: RE: sort list
  • Next by thread: RE: sort list