Re: splitting sublists

*To*: mathgroup at smc.vnet.net*Subject*: [mg58135] Re: splitting sublists*From*: "dkr" <dkrjeg at adelphia.net>*Date*: Sun, 19 Jun 2005 03:43:56 -0400 (EDT)*References*: <d8rjme$isb$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

What you appear to want to do is find the longest sequence of integers preceding each "x", enclose the sequence in a list, and delete the "x". In[4]:= {{3,1,4,"x",1,5,9,2,"x"},{6,5, "x",3,5,"x",8,9,"x"}}//.{a___?(!IntegerQ[#]&), b__Integer,"x",c___}:>{a,{b},c} Out[4]= {{{3,1,4},{1,5,9,2}},{{6,5},{3,5},{8,9}}}