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

Fast List-Selection

• To: mathgroup at smc.vnet.net
• Subject: [mg19880] Fast List-Selection
• From: Hans Havermann <haver at total.net>
• Date: Sun, 19 Sep 1999 18:47:32 -0400
• Sender: owner-wri-mathgroup at wolfram.com

I have a list 's' composed of a large number of (small) integers. I wish to
search this list for instances of 7 consecutive, identical elements.

My approach is:

Do[If[Count[t = Take[s, {i, i + 6}], t[[1]]] == 7,
    Print[i]], {i, 1, Length[s] - 6}]

Can anyone think of a *faster* way of doing this?

• Follow-Ups:
  • Re: Fast List-Selection
    • From: Carl Woll <carlw@u.washington.edu>