公平にリストを分割する

Question

これはかなり一般的なことだと確信していますが、私はそれについて何も見つけることができません（私のinternet-search-fuは強くない）。

：リストの長さが均等にいくつかの例はNで割り切れない場合

IはNよりも小さい最終的なサブリストを持つグループN個の要素それぞれのリストのリストにリストをすることができる機能を有します

groupEvery 2 [1,2,3,4]    = [[1,2],[3,4]] 
groupEvery 4 [1,2,3,4,5,6,7,8,9,10] = [[1,2,3,4], [5,6,7,8], [9,10]] 

私がしたいことリストと正の整数Nを取ることである（上記の例でNは2と3であると言うことができる）とnはリストの新しいリストにそれを分割します。どのようなタイプのリストでも動作し、可能な限り小さなサイズのサブリストを生成する必要があります。

だから私は持っているしたいと思います：

fairPartition 3 [1,2,3,4,5,6,7,8,9,10] = [[1,2,3,4], [5,6,7], [8,9,10]] 

それとも限りgroupEveryを使用して長さ3の2及び長さ4

素朴な試みの一つがあるとして、サブリストの任意の組み合わせ：

fairPartition :: Int -> [a] -> [[a]] 
fairPartition n xs = groupEvery ((length xs `div` n) + 1) xs 

fairPartition 4 [1..10] = [[1,2,3],[4,5,6],[7,8,9],[10]] 

（3,3,3,1）は長さの公平な分布ではありません。また、小さな長さのリストでは、適切な数のサブリストを返しません。

# Haskell, at GHCi 
*Main> let size = 4 in map (\l -> length . fairPartition 4 $ [1..l]) [size..25] 
[2,3,3,4,3,3,4,4,3,4,4,4,4,4,4,4,4,4,4,4,4,4] 

ハスケルに簡単に翻訳可能な{擬似、実際の}コード機能や説明が欲しいです（アイデンティティ翻訳は最高です）！

ありがとうございました。

Answer 1

splitパッケージのsplitPlaces関数を使用することができます。

import Data.List.Split 

fairPartition n xs = case length xs `quotRem` n of 
    (q, r) -> splitPlaces (replicate r (q+1) ++ replicate (n-r) q) xs