Re: Sorting by date
- To: mathgroup at smc.vnet.net
- Subject: [mg72666] Re: Sorting by date
- From: Peter Pein <petsie at dordos.net>
- Date: Sun, 14 Jan 2007 04:50:48 -0500 (EST)
- References: <eoa6ji$mi6$1@smc.vnet.net>
Clifford Martin schrieb:
> Hi All,
>
> I have a list of lists that looks like so:
>
>
> {{3, 137.5, 13978, {2005, 2, 8}}, {3, 138.5, 12519, {2005, 1, 4}}, {3, 171.9, 15835, {2005, 4, 12}}, {3, 142.8, 17137, {2005, 11, 19}},
> {3, 161.1, 18881, {2006, 1, 18}}, {3, 108.7, 20055, {2006, 2, 28}}, {3, 157, 21498, {2006, 9, 14}}, {3, 118.1, 10891, {2004, 11, 12}}}
>
> The last element per vector is a date. I'd like to sort the list so that the vectors are arranged in ascending order of date, i.e. the vector containing {2004,11,12} should be first and and the vector containing {2006,9,14} should be last. Any help would be appreciated.
>
> Thanks
>
> Cliff
>
Hi Cliff,
assuming your list is in a variable named data, then
Sort[data, Less @@ (FromDate[PadRight[Last[#], 6]] & /@ {##})&]
gives the desired result (see Mathematica Book 2.14.3).
Peter