Re: Keeping order with Union
- To: mathgroup at smc.vnet.net
- Subject: [mg32603] Re: Keeping order with Union
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Thu, 31 Jan 2002 01:45:28 -0500 (EST)
- Organization: Universitaet Leipzig
- References: <a38bd0$2n$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
look in the "Future Examples" of the Mathematica Online Help for Union[]
!
UnsortedUnion[x_] := Module[{f}, f[y_] := (f[y] = Sequence[]; y); f /@
x]
Regards
Jens
Dave Snead wrote:
>
> I'd like a function that throws out duplicate entries in a list and keeps
> the
> original list order. (when it sees 2 equal entries it throws out the one
> that is later in the list). I'd use Union, but it sometimes changes the
> order of the elements in the list. What's the tersest way to do this?
> Thanks in advance,
> Dave Snead