MathGroup Archive 2006

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

Search the Archive

Re: question about Split[...]

  • To: mathgroup at smc.vnet.net
  • Subject: [mg64544] Re: question about Split[...]
  • From: "Borut Levart" <BoLe79 at gmail.com>
  • Date: Wed, 22 Feb 2006 05:58:27 -0500 (EST)
  • References: <dte21e$rbp$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Hi,

I would use the Split function without the test, but then trim its
results. What do you say?

In=
lst = {a, a, a, a, b, a, c, c, c, b, b, b, b, b, b, c, c, d, a, a, a,
a, a, a, a, a, a, a};
Module[{k = 3, d},
  If[d = Length[#]; d > k,
          {Take[#, k], Sequence @@ Take[#, d - k]},
          #] & /@ Split[s] // Flatten[#, 1] &]

Out=
{{a, a, a}, a, b, a, c, c, c, {b, b, b}, b, b, b, c, c, d, {a, a, a},
a, a, a, a, a, a, a}


  • Prev by Date: Re: SetOptions with Column
  • Next by Date: Increment and AddTo
  • Previous by thread: Re: question about Split[...]
  • Next by thread: Re: question about Split[...]