Re: Sort problem

*To*: mathgroup at smc.vnet.net*Subject*: [mg56307] Re: Sort problem*From*: "Jens-Peer Kuska" <kuska at informatik.uni-leipzig.de>*Date*: Fri, 22 Apr 2005 06:22:32 -0400 (EDT)*Organization*: Uni Leipzig*References*: <d47suf$54n$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Hi, AgeSort[person : {__String}, age : {__Integer}] /; Length[person] == Length[age] := Transpose[Sort[Transpose[{age, person}], First[#1] < First[#2] &]] {pple,age}=AgeSort[pple, age]; ??? Regards Jens <konstantpi at mail15.com> schrieb im Newsbeitrag news:d47suf$54n$1 at smc.vnet.net... > Hi > How to sort two lists such as: > age={30,12,60,20}; > pple={"john","kate","peter","alice"}; > > to give the output: > age={12,20,30,60} > pple={"kate","alice","john","peter"} > > ie: to keep every person opposite his age > number. > thanks >