Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- list={a,b,a,b,a,b,a,a,b}
- Cases[list, Repeated[a,{2}]]
- list={a,b,a,b,b,b,a,b,a,a,b};
- SequenceCases[list,{Repeated[x_,{2}]}]
- containsRepeatedQ = SequenceCases[#,{Repeated[x_,{#2}]}] != {}&;
- containsRepeatedQ[{a,b,a,b,a,b,a,b}, 2]
- containsRepeatedQ[{a,b,a,b,a,b,a,a,b}, 2]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement