Subdividiendo una lista en haskell

Question

¿Cómo puedo agrupar una lista en listas más pequeñas de igual longitud (excepto la última sublista) en haskell?

E.g.

sublist 3 [1,2,3,4,5,6,7,8] -> [[1,2,3],[4,5,6],[7,8]] 
sublist 2 [4,1,6,1,7,3,5,3] -> [[4,1],[6,1],[7,3],[5,3]] 

Answer 1

Si usted quiere meter a preludio, se puede sacar esto adelante usando splitAt.

splitEvery _ [] = [] 
splitEvery n list = first : (splitEvery n rest) 
    where 
    (first,rest) = splitAt n list 

Answer 2

Probar:

import Data.List.Split 
> splitEvery 2 [4,1,6,1,7,3,5,3] 
[[4,1],[6,1],[7,3],[5,3]] 

Answer 3

Otra solución que me gusta es:

splitEvery :: Int -> [a] -> [[a]] 
splitEvery n = takeWhile (not.null) . map (take n) . iterate (drop n) 

Answer 4

Sin embargo, otra solución:

split :: Int -> [a] -> [[a]] 
split n = unfoldr (\s -> if null s then Nothing else Just $ splitAt n s) 

Answer 5

Sé que esto es viejo, pero ya que este parece ser un mensaje para personas que están bastante nuevo para Haskell, tenía ganas de publicar mi solución también. Me tratado de resolver este problema mediante el uso de preludio, solamente:

sublist :: Int -> [a] -> [[a]] 
sublist n ls 
    | n <= 0 || null ls = [] 
    | otherwise = take n ls:sublist n (drop n ls) 

Prueba

sublist 3 [1,2,3,4,5,6] -- λ> [[1,2,3], [4,5,6]] 
sublist 5 [1,2,3]  -- λ> [[1,2,3]] 
sublist (-1) [1,2,3] -- λ> [] 
sublist 20 []   -- λ> [] 

Answer 6

El módulo Data.List.Split tiene una función chunksOf para esto:

Prelude> import Data.List.Split 

Prelude Data.List.Split> chunksOf 3 [1,2,3,4,5,6,7,8,9,10] 
[[1,2,3],[4,5,6],[7,8,9],[10]] 
Prelude Data.List.Split> chunksOf 3 [] 
[] 

Parecía ser instalado por predeterminado en mi máquina, pero es posible que deba obtenerlo con cabal.