Re: Group and Replace itens sequence in a list

*To*: mathgroup at smc.vnet.net*Subject*: [mg127816] Re: Group and Replace itens sequence in a list*From*: Ulrich Arndt <ulrich.arndt at data2knowledge.de>*Date*: Thu, 23 Aug 2012 20:52:15 -0400 (EDT)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*Delivered-to*: l-mathgroup@wolfram.com*Delivered-to*: mathgroup-newout@smc.vnet.net*Delivered-to*: mathgroup-newsend@smc.vnet.net*References*: <20120823065202.F18956843@smc.vnet.net>

Map[Replace[#, {X, y___} -> {y}] &, Split[ReplaceRepeated[ l, {x___, a, b, a, y___} -> {x, X, y}], #2 =!= X &]] Map[DeleteCases[#, X] &, Split[ReplaceRepeated[ l, {x___, a, b, a, y___} -> {x, X, y}], #2 =!= X &]] Am 23.08.2012 um 08:52 schrieb Murta: > Hi All > > I have a simple problem that is: > > l={1,2,3,a,b,a,4,5,6,a,b,c,7,8,9,a,b,a,10,11,12} > > I want to replace all a,b,a sequence by X to get: > > l={1,2,3,X,4,5,6,a,b,7,8,9,X,10,11,12} > > Then I want to group it by X intervals as > l={{1,2,3},{4,5,6,a,b,7,8,9},{10,11,12}} > > If I don't need to put the intermediate X, even better! > I think the with pattern, RaplaceAll and DeleteCases I can do It. Some clue? > Tks > Murta > > >

**References**:**Group and Replace itens sequence in a list***From:*Murta <rodrigomurtax@gmail.com>