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))
                              ([],[])