6 lines
284 B
Text
6 lines
284 B
Text
|
rangeExtract[data_List] := ToString[Row[
|
||
|
|
Riffle[
|
||
|
|
Flatten[Split[Sort[data], #2 - #1 == 1 &] /. {a_Integer, __, b_} :> Row[{a, "-", b}]],
|
||
|
|
","]
|
||
|
|
]];
|