4 lines
322 B
Text
4 lines
322 B
Text
rangeExtract[data_List] := ToString[Row[Riffle[
|
|
Flatten[Split[Sort[data], #2 - #1 == 1 &] /. {a_Integer, __, b_} :> Row[{a, "-", b}]],
|
|
","]]];
|
|
rangeExtract[{0,1,2,4,6,7,8,11,12,14,15,16,17,18,19,20,21,22,23,24,25,27,28,29,30,31,32,33,35,36,37,38,39}]
|