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

Re: Selecting by first element of each list

• To: mathgroup at smc.vnet.net
• Subject: [mg48155] Re: Selecting by first element of each list
• From: "Carlo Teubner" <.Teubner at t-online.de (FirstLetterOfMyFirstName)>
• Date: Fri, 14 May 2004 20:59:13 -0400 (EDT)
• Organization: Oxford University, England
• References: <c81i3m$509$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

Hi,

try

Split[list1, #1[[1]] == #2[[1]] &].

This will give you what you want, provided first lists that belong together
appear consecutively.

Carlo

<camartin at snet.net> schrieb im Newsbeitrag news:c81i3m$509$1 at smc.vnet.net...
> Hi,
>
> I'm trying to learn to handle a flat file kind of database using
> Mathematica. An example is the list of lists below:
>
> {{2,3,4,5,77},{2,4,5,66,77},{3,4,7,8,90,6},{3,5,6,7,8,0},{3,45,67,77,12}}
>
> It's actually more complicated than this but good enough for
> illustrative purposes. The first element in each list is actually an
> identifier, like an account number. I want to create a list of lists
> with each account, that is,
>
> {{{2,3,4,5,77},{2,4,5,66,77}},
> {{3,4,7,8,90,6},{3,5,6,7,8,0},{3,45,67,77,12}}}.
>
> When I use Select with an anonymous function such as
>
> Select[list1,#1[[1]] = = #2[[1]]&]
>
> I get an error because it stops (of course) after the first two lists. I
> get the right grouping for the first list but it doesn't finish. I don't
> understand how to use the anonymous function to go through my list (it's
> got several thousand entries) and select and group by the first element
> in each group. I've been through the archive but nothing there quite
helps.
>
> I would appreciate some direction.
>
> Thanks
>
> Cliff
>
>