Re: Deleting Duplicates
- To: mathgroup at smc.vnet.net
- Subject: [mg110235] Re: Deleting Duplicates
- From: Peter Pein <petsie at dordos.net>
- Date: Thu, 10 Jun 2010 08:06:05 -0400 (EDT)
- References: <hu4sel$1kh$1@smc.vnet.net>
Am Wed, 2 Jun 2010 06:07:17 +0000 (UTC) schrieb Andrzej Kozlowski <akoz at mimuw.edu.pl>: > This method seems to be fairly quick: > > test[p_, a_] :== > Position[Complement[a, {p}], {___, Sequence @@ p, ___}, 1, 1] !== {} > > DeleteCases[a, _?(test[#, a] &)] > > {{x1,x2,x3,x13,x18},{x1,x2,x7,x12,x15},{x1,x4,x5,x9,x16},{x1,x2,x7,x12,x14,x18},{x1,x4,x5,x9,x11,x17},{x1,x4,x6,x8,x10,x17}} > > Andrzej Kozlowski > > really nice :-)