如何在Qore中将长列表拆分成多个片段

Question

我想在Qore中分割一个列表，如下所示：

list a = (1,2,3,4,5,6);
list pieces = split_list_into_pieces(a, 2);
printf("%y\n", pieces);

所需输出：

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

也就是说，我想获取一个(假设很长的)列表，并将其分成给定(最大)长度的片段。

我可以这样做：

list sub split_list_into_pieces(list a, int length)
{
    int i = 0;
    list ret = ();
    list temp = ();
    foreach any x in (a)
    {
        temp += x;
        i++;
        if (i == length)
        {
            push ret, temp;
            temp = ();
            i = 0;
        }
    }
    if (temp)
    {
        push ret, temp;
    }
    return ret;
}

但它不是很优雅，不是吗？

有更好的解决方案吗？

Answer 1

你可以这样做：

list sub list_chunk(list a, int length) {
    list result = ();
    while (a)
        push (result, extract (a, 0, length));
    return result;
}