Re: how to delete duplicate items in the same list
- To: mathgroup at smc.vnet.net
- Subject: [mg45505] Re: how to delete duplicate items in the same list
- From: bobhanlon at aol.com (Bob Hanlon)
- Date: Sat, 10 Jan 2004 16:43:26 -0500 (EST)
- References: <bto1uf$2ka$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
orig={b,b,c,a,c,a,b,d};
If a sorted result is acceptable just use Union
Union[orig]
{a,b,c,d}
To maintain order using the first occurrence
Fold[If[MemberQ[#1, #2], #1, Append[#1,#2]]&,{},orig]
{b,c,a,d}
Bob Hanlon
In article <bto1uf$2ka$1 at smc.vnet.net>, Sabrina <hxs61 at case.edu> wrote:
<< I can't find a way to make sure all items in the same list are unique. Can
anybody help me out? Thanks a lot!