RosettaCodeData/Task/Range-extraction/Haskell/range-extraction-2.hs

3 lines
120 B
Haskell

> extractRange $ [0..2] ++ 4 : [6..8] ++ 11 : 12 : [14..25] ++ [27..33] ++ [35..39]
"0-2,4,6-8,11,12,14-25,27-33,35-39"