Re: Sorting
- To: mathgroup at smc.vnet.net
- Subject: [mg22104] Re: Sorting
- From: "Allan Hayes" <hay at haystack.demon.co.uk>
- Date: Mon, 14 Feb 2000 02:03:55 -0500 (EST)
- References: <8837l8$7o6@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Wagner,
The following works for variables like abc123 with both letters and
numbers.
sep[{a___Symbol, n___Integer}] :=
ToExpression[StringJoin @@ ToString /@ #] & /@ {{a}, {n}}
mysort[lst_List] :=
ToExpression[StringJoin[##]] & @@@ Map[ToString,
Sort[sep /@ ToExpression /@ Characters /@ ToString /@ lst],
{2}]
mysort[{z2, a5, z10}]
{a5, z2, z10}
Allan
---------------------
Allan Hayes
Mathematica Training and Consulting
Leicester UK
www.haystack.demon.co.uk
hay at haystack.demon.co.uk
Voice: +44 (0)116 271 4198
Fax: +44 (0)870 164 0565
"Wagner Truppel" <wtruppel at uci.edu> wrote in message
news:8837l8$7o6 at smc.vnet.net...
> Hi folks,
>
> can anyone tell me how I can make Mathematica sort variable names
> without sorting any numbers within those variables as strings as
> well? If you try Sort[{z2,a5,z10}] you get back {a5,z10,z2}, while I
> want to get back {a5,z2,z10}.
>
> Thanks.
> Wagner Truppel
> wtruppel at uci.edu
>