groupBy' (\a b -> abs (a - b) <= 1) [1,2,3] = [[1,2,3]]
groupBy (\a b -> abs (a - b) <= 1) [1,2,3] = [[1,2],[3]]