Re: Selecting by first element of each list
- To: mathgroup at smc.vnet.net
- Subject: [mg48163] Re: Selecting by first element of each list
- From: "Borut Levart" <bole79 at email.si>
- Date: Fri, 14 May 2004 20:59:34 -0400 (EDT)
- References: <c81i3m$509$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hello,
I would do it like this:
1. extract the unique id's
2. select the lists with particular id, one group at a time
In[1]:=
data={{3,5,6,7,8,0},{2,3,4,5,77},{2,4,5,66,77},{3,4,7,8,90,6},{3,45,67,77,
12}};
In[2]:=
ids=Union[First/@data]
Out[2]=
{2,3}
In[3]:=
Map[Function[id,Select[data,#[[1]]==id&]],ids]
Out[3]=
{{{2,3,4,5,77},{2,4,5,66,77}},{{3,5,6,7,8,0},{3,4,7,8,90,6},{3,45,67,77,12}}
}
Is that it?
Borut > Europe > Slovenia > Ljubljana
<camartin at snet.net> wrote in message 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
>
>