Haskell ::循环中递归的递归（第2部分）

Question

此问题源于之前的问答。您可以在此处找到链接：Haskell :: Recursion in Recursion for Loop in Loop (Part 1)

这个问题得到了回答，我可以说超级惊人，有很好的解释供将来参考。感谢@ user2407038的惊人技巧。但是，有两个以上分区的递归思考有趣的东西。为了清楚起见，为了简单起见，我稍微改变了数据。在这里看起来如何：

以前，通过查找（min x，min y）和（max x，max y）生成2个红点。要生成4个红点（min x，min y）（max x，min y）（min x，max y）（max x，max y），应考虑partition4。在视觉上它看起来像这样：

考虑到每组的最大成员数为3，第1组和第4组超过了该数字。应根据这些组创建新组。然而，更棘手的部分是该组不会计算前一个红点的距离：

上一个问题的编辑代码：

$wp_query_post = new WP_Query(array(
    'post_type'      => 'post',
    'posts_per_page' => 5,
    'meta_query' =>
    array(
        array(
            'key'        => 'timestart',
            'compare'    => '<=',
            'meta_type' => 'DATE',
            'value'      => intval(strtotime($datetime)),
            ),
        'relation'   => 'AND',
        array(
            'key'        => 'timeend',
            'compare'    => '>=',
            'meta_type' => 'DATE',
            'value'      => intval(strtotime($datetime)),
            )
        )
    )
);

我发现它的长度c改变了答案，因为它不应该是预期的。也许我错误地编辑了它（叹气）。

仍然按照建议计算如何使用PartitionN代码分割成N组。