Problem of grouping list values.

grouplist.hs

-- ghci example
-- *Main> group [1,2,3,4,7,8,13]
-- [(1,4),(7,8),(13,13)]
group = foldr f [] 
    where f x []             = [(x,x)]
          f x as@((a,b):as') = if a == x+1 then (x,b):as'
                                           else (x,x):as
-- *Main> ungroup [(1,4),(7,8),(13,13)]
-- [1,2,3,4,7,8,13]
ungroup [] = [] 
ungroup xs = concat $ map f xs 
    where f (a,b) = if a == b then [a] else a:f (a+1,b)

Python version using a 'generator' function:

def group(numbers):
    it = iter(numbers)
    x = y = next(it)
    for i in it:
        if i - y > 1:
            yield x, y
            x = i
        y = i
    yield x, y

assert list(group([1,2,3,4,7,8,13])) == [(1,4), (7,8), (13,13)]
assert list(group([])) == []