Range extraction: Difference between revisions

-- RANGE FORMAT --------------------------------------------------------------

rangeFormat :: [Int] -> String

rangeFormat = intercalate "," . (rangeString <$>) . splitBy ((/=) . succ)

where

ps@(x:t) = show <$> xs

-- GENERIC FUNCTION ----------------------------------------------------------

-- Split wherever a supplied predicate matches the relationship

-- between two consecutive items.

-- E.G. at boundaries between vowels and consonants:

-- splitBy (on (/=) (flip elem "aeiouAEIOU")) "Constantinople"

-- -> ["C","o","nst","a","nt","i","n","o","pl","e"]

-- At boundaries between non-successive integers:

-- splitBy (\a b -> b /= succ a) [0, 1, 2, 4, 6, 7, 8, 11, 12, 14]

-- -> [[0,1,2],[4],[6,7,8],[11,12],[14]]

splitBy :: (a -> a -> Bool) -> [a] -> [[a]]

splitBy _ [] = []

(zip xs t)

main :: IO ()

main =