How to pick consecutive numbers from list?

Question

Question is very simple. If we have

tst = {2,3,4,6,7,9,11}

result must be

{{2,3,4}, {6,7}, {9}, {11}}

There are similar questions, but not exact.

My best solution is:

myFun[arr_] := Module[{prev = First@arr, tag = First@arr},
Reap[
 Sow[prev, tag];
 Do[
  If[prev != e - 1, tag = e];
  Sow[e, tag];
  prev = e,
  {e, Rest@tst}]
 ]][[2]];

Is it possible to do it better?

Related (but not identical): Find subsequences of consecutive integers inside a list — user1066, May 22 '20 at 18:53

score 14 · Accepted Answer · answered May 22 '20 at 17:13

14

Split[] was meant for this:

Split[{2, 3, 4, 6, 7, 9, 11}, #2 - #1 == 1 &]
   {{2, 3, 4}, {6, 7}, {9}, {11}}

answered May 22 '20 at 17:13

J. M.'s missing motivation

124,525
11
401
574

#2 - #1 == 1 & I was blind (( Thank you! – lesobrod May 22 '20 at 17:19

How to pick consecutive numbers from list?

1 Answers1