Haskell组预定义的长度没有显式递归

Question

如何创建一个函数，将列表的元素分组为预定义长度的列表，而不使用显式递归。

例如，2：

[1, 2, 3, 4, 5, 6, 7, 8]
[[1, 2], [3, 4], [5, 6], [7, 8]]

谢谢！

Answer 1

以下是可行的（尽管你可能会认为从Data.List使用groupBy作弊）

import Data.Function (on)
import Data.List     (groupBy)

group :: Int -> [a] -> [[a]]
group n = map (map snd)
        . groupBy ((==) `on` fst)
        . zip (enumFrom 1 >>= replicate n)

Answer 2

如果你将你的包裹设置为100个字符，这是一个单行的:)。 我猜你正在寻找一种使用折叠的东西。

group :: Int -> [a] -> [[a]]
group n = uncurry (:) . foldr (\x (l,r) -> if length l == n then ([x],l:r) 
                                                            else (x:l,r))
                              ([],[])