Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

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

Search the Archive

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!


  • Prev by Date: RE: how to delete duplicate items in the same list
  • Next by Date: Re: Graphics / cosmetics
  • Previous by thread: RE: how to delete duplicate items in the same list
  • Next by thread: Re: how to delete duplicate items in the same list