[Haskell-cafe] Never-ending discussion... Was: Basic list exercise

[Johannes Waldmann]

@Jerzy : I like your plan to use combinators.
Then let's remove (visible) recursion completely:

map (map fst ) $ groupBy (const snd)
                $ zip xs ( True : zipWith (<=) xs (tail xs))