Scheme どう書く？的 - ひげぽん OSとか作っちゃうかMona-
http://d.hatena.ne.jp/higepon/20080925/1222326246

こんなことをしていられる状況ではないんだけど、mapAccumLを使いたい衝動を抑えられなかった。

compactNumberList :: [Int] -> [[Int]]
compactNumberList = snd . partition ([]==) . tail . snd . mapAccumL collect [-1] . (++[-1])
    where collect xx@(x:xs) y | y - x == 1 = (y:xx, [])
                              | xs ==[]    = ([y], [x])
                              | otherwise  = ([y], [last xx, head xx])