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 :-)