在 Erlang 中将列表拆分为相同大小的块

我想分割：

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

into:

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

它通常适用于：

[ lists:sublist(List, X, 2) || X <- lists:seq(1,length(List),2) ] .

但这样确实很慢。在我的上网本上，10000 个元素需要惊人的 2.5 秒。我还编写了一个非常快的递归函数，但我只是感兴趣：这个列表理解是否也可以用不同的方式编写，以便它更快？

尝试这个：

part(List) ->
        part(List, []).
part([], Acc) ->
        lists:reverse(Acc);
part([H], Acc) ->
        lists:reverse([[H]|Acc]);
part([H1,H2|T], Acc) ->
        part(T, [[H1,H2]|Acc]).

在 erlang-shell 中测试（我已经在模块中声明了这个函数part):

2> part:part([1,2,3,4,5,6,7,8]).
[[1,2],[3,4],[5,6],[7,8]]
3> 
3> timer:tc(part, part, [lists:seq(1,10000)]).
{774,
 [[1,2],
  [3,4],
  [5,6],
  [7,8],
  "\t\n","\v\f",
  [13,14],
  [15,16],
  [17,18],
  [19,20],
  [21,22],
  [23,24],
  [25,26],
  [27,28],
  [29,30],
  [31,32],
  "!\"","#$","%&","'(",")*","+,","-.","/0","12","34",
  [...]|...]}

仅 774 微秒（约 0.8 毫秒）