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